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Two batch air defense programs named P001 ana MICE reside on 
the Naval Postgraduate School IBM 3033 computer. The 
programs compute the probability of kill of an aircraft by 
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active pre-processing program named I3MPI?. Improvements to 
IBMPI? are proposed to enhance existing capabilities or 
provide new capabilities. Areas addressed are; 

• introduction of user friendliness 
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I. HISTORY 

There are two hatcn p 
programs implemented at Ma 
programs take a user-defina 
it to various defensive pos 
of having killed the aircra 
Force Armament Laboratory’ 
Simulation. Its shorthand 
is the Air Force ASD surfac 
simulation. Its shorthand 
satisfy MIL-STD-2069 and a 
aid. 

A drawback to these pro 
of input data submitted t 
format requirements are rig 
sion of data to the progra 
and tedious. Humans are 
consuming, tedius tasks and 
A first step improvemen 
to pool cccured in 1 978. A 
Input Processor, or PIP fo 
processors, PIP was a b 
requirements were reduced 
flightpath milestones, an i 
tors for the type of output 
PIP had its shortcomin 
implementation, the entire 
be submitted as a unit. T 
aircraft struct ural/perfor 
rules by experiencing faile 
repeated tinkering with th 



M2 INTRODUCT ION 

rocessor air defense simulation 
val Postgraduate School. These 
d aircraft flight path, compare 
itions and return the probability 
ft. The first program is the Air 
s Anti-Aircraft Artillery (AAA) 
name is P001. The second program 
e-to-air missle (SAH) engagement 
name is HICE II. The programs 
re used in industry as a design 

grams is the fact that the amount 
o the programs is large and the 
id. The process of direct submis- 
ms, is therefore time consuming 
inefficient at performing time 
errors are a result, 
t in the method of inputting data 
pre-processing program named P001 
r short, was created. Like the 
atch program. However, input 
to just spatial coordinates of 
nitial speed, and control indica- 
desired. 

gs, too. Because of the batch 
flightpath of milestones had to 
he user learned of violations of 
mance limitations and mission 
d runs. Corrections consisted of 
e milestones until a successful 
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run emerged. A further drawback, to PIP is the reguireaent 
for the user to plot the desired route, pick off r. uuitiric 
data and then ger the nuneric data into FORTRAN iornat. 

The next generation inproveaent was introduced an Naval 
Postgraduate School in 1982 by Lt. 2ric R. Johns. 
Recognizing the inherent limitations of a batch processor, 
Johns converted PIP into an interactive program suitable for 
use on time shared computer systems. In so doing, he real- 
ized the following benefits: 

1. The user could te notified "immediately" of a miiesrone 
entry that violated predefined aircraft structural or 
performance limitations. 

2. The user could be given the opportunity of making a 
correction before proceeding. 

3. An interactive graphics capability could be introduced 
which eliminated the necessity of manually converting 
and coding data from a map into the computer. 

As a secondary effort, transportability through modular 
programming was introduced to permit easy dissemination of 
the pre-processor to interested government agencies and 
industries. The version in use on the Naval Postgraduate 
School ISM 3033 computer is named IBMPIP. 

While acknowledging the importance of IBMPIP as a great 
evolutionary step forward in the convenient use of 2001 and 
MICE, it guickly became apparent that still more improve- 
ments could be realized, which would increase the conven- 
ience of the data generating aspect, improve the accuracy of 
the results from 2001 and MICE and broaden the capabilities 
of the IBMPIP-POO 1/MICE combination in two areas: design 

decision making and tactics. The purpose of this thesis is 
to make some of those improvements. 
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Rather tnan rename i3 
improved version ox I3II? 
sodules vhich are to te dis 
auction cx the new modules 
existing nodules. 

Before developing the 
nodules, it will be ins 
I3MPIP-P001/MICE at Naval P 
a first step toward develop 
which future modifications 

IBMPIP-POO 1/MICE is i 
Aircraft Combat Survivanii 
teaching aid in developing 
affecting aircraft surviva 
environment. In a game env 
bombing mission against a 
one SAM locations. There a 
tion of seme of the defensi 
restrictions on the perform 
team is responsible for g 
offensive data file. When 
parameters, the data file 
that each team’s flight pat 
defense. Implicit in this 
each team has no knowledge 
will look like. The compar 
ness. pool and MICE act as 
the lowest probability of k 
winner. 

To ensure comparabilit 
the aircraft is fixed for 
ently has the capability 
flight profile changes OF T 
This is an important point 



M2IP, this thesis proposes an 
IP by installation of specific 
cussed. Pnysicaily, the intro- 
reguired extensive changes to the 

discussion for the proposed 
tractive to examine the use of 
ostgraduate School. This acts as 
ing an overall philosophy within 
will fit in a logical sequence, 
ncorporated in a course titled 
ity (AE 3251) and is used as a 
an understanding of the factors 
bility in a hostile AAA and SAM 
ironment, student teams ’’fly" a 
target defended by seven AAA and 
re game restrictions on the loca- 
ve positions. There are also game 
ance of the pseudo-aircraft. Each 
enerating one defensive and one 
each team is satisfied with their 
s are exchanged in such a manner 
h is compared to the other team’s 
method is the understanding that 
of what the incoming data files 
isoDS, then, approach arbitrari- 
the judge, in that the team with 
ill for their flightpath is named 

y of scores, the performance of 
the game, although I3MPIP pres- 
of permitting performance and 
HE ONE aircraft described in it. 
to note. 
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of the 



Shat is left as variables at the disposal of the teass 
then^ are defensive posxtioning and tue specific flightpach 



jZ the aircraft 






concept ci tactics as a method of lowering probability of 
kill (Increasing chances of survival) . This is good, Shat 
would be better would be for the student to reach the 
conclusion that reduction of vulnerability and suscepti- 
bility flaws in the aircraft will lead to a probability of 
survival exceeding that which can be accomplished by tactics 
alone. There are several modifications to IBhPIP that would 
accomplish this goal. 

As stated earlier, P001 and MICE are used by industry to 
make design decisions. This fact leads to the demand that 
the data on the position of the aircraft be at least as 
accurate as the detect and track capability of the defensive 
devices programmed into POO 1 and MICE. Such is not presently 
the case. The original version of I3MPIP uses an assumed 
quadratic flightpath between the current milestone and the 
two previous milestones. The aircraft accelerations are 
computed at the center of these three milestones based on 
the velocity between the third and center milestones and the 
velocity between the center and current milestones. If the 
accelerations at the center milestone are acceptable, the 
current milestone is accepted. P001 and nice assume a 
straight line between these milestones. Because the user is 
free to define milestones thousands of meters apart there 
can be a significant lateral error in the computed aircraft 
position at the mid-points between the milestones. 

A last area to be discussed is tne output from P001 and 
MICE. At present, it is difficult to obtain rapid correla- 
tion between the "aircraft" and where it is being subjected 
to attack. The output from both P001 and MICE are in the 
form of long tables of time-space-attitude information of 
the aircraft, probability of iciils for each defensive 



device and the cuaalative probability of kill based or. the 
sua of all of the defense. The user aust then graph by hand 
the location of the "aircraft" at the time it is threatened 
or being daaaged, to draw any conclusions on its suscepti- 
bility and to a lessor extent, its survivability. 

By way of summary then, a statemant is made as to what 
would constiture an ideal I BMPIP-PO 0 1/hICE implementation to 
satisfy all the above mentioned saortfaiis. 

IBdPIP-POOI/IilCE should be; 

• interactive to permit feed back of pertinent operating 
information to the user 

• user friendly to diminish the reguiremenr for special- 
ized operating procedures and to avoid fatal errors 

• approaching real time in ability to compute and present 
results 

• graphics oriented to enhance the convenient generation 
of input data AND presentation of results 

• accurate to the extent of the systems being modelled 

• flexible through incorporation of a selectable range of 
different aircraft and defensive weapons 

• transportable, as accomplished through modular program- 
ming technigues 

In conclusion, two of the above points are addressed by 
this thesis and will be discussed. They are incorporation 
of user friendliness and a more representative flightpath. 
The most difficult task has been the convenient generation 
of an accurate, representative flight path. 
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A generally accepted meaning of "user friendliness" is 
to structure a program in such a fasnion that the user 
cannot "do" anything to cause an unplanned nalt in execu- 
tion. The sinplist version of the above concept is to 
prevent the user frcm entering data upon which the program 
is not structured to act. The following example is taken 
from the original I3MFIP. 

50 T?P.ITE (6,6 00) 

READ (5,*) IGUN 

600 FORMATC GUNS: 0=DISK FILE, 1=TERMINAL, 2=PRESET' ) 



It is clear that the only correct responses are 0, 1, and 2. 
It is also clear that any integer number would satisfy the 
READ statement. To prevent unplanned events from taking 
place in the program, the following change is made: 

50 WRITE (6,600) 

READ (5,*) IGUN 

IF(IGUN. NE.O. AND. IGUN. NE. 1 . AND. IGUN.NE. 2) 

♦ GOTO 50 

600 FORNATC 0=DISK FILE, 1=TSRMINAL , 2=PHESST' ) 



The user is now prevented from progressing beyond this point 
in the program until an acceptable input is made. The user 
is encouraged to try again by having the prompt message 
repeat on the screen. 
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If the definition of user friendliness is 



broadened 



include "convenience" to the user, taen there are many 
schemes which could profitably be incorporated. Tor erarple, 
in the current version of IBMPI?, once a map has been 
successfully created on the graphics screen, all further 
data is entered through a graphics buffer. The reason for 
this method is to allow the user to see a continuous trace 
{see figure 2.1) of the trajectory that will be submitted to 
P001/MICE. However, if a game parameter or an aircraft limi- 
tation is violated, the program suspends execution and 
queries the user for a selection of one of two options: 



1. Accept the data point, which violates a parameter or, 
2. Substitute a data point which does not. 



This can turn into an iterative process between the user and 
the program. 

It is a contention of this thesis that parameter viola- 
tions which do not affect the overall outcome of the surviv- 
ability of the "aircraft" should be corrected automatically 
by the computer. At’mcst, for these kind of errors, the user 
should see an advisory statement that does not require a 
response. The following example is offered in support (to 
improve readability, some of the variables are renamed to 
simpler mnemonics) . 

One of the game parameters that must be satisfied is 
that during the enroute portion of the "flight", the 
"aircraft" may not descend below 60 meters altitude, as 
denoted by the variable HTdIN. Presented, then, is the orig- 
inal program flow for a violation of this parameter. 
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1 =>graphically input Z1 

ALT=Z1 (where Z1 is the altitude in meters 
-- call it 50 meters) 

IF{ALT. GE.HiaiN) proceed 
otherwise 
-EEROR=3 

GOTO (1,2,3, ...) , ERROR 
3 WRITE (6,6 03) 

603 rOEMAT(» AlIITODE TOO LOW) 

WRITE (6,6 50) 

READ (5,*) ICOR 

FORMAT(’DO YOU WISH TO CORRECT ERROR, 

* 1=YES ,2 = NC) 

IF(ICOS.EC.l) 0010 1 

1 5 



650 




Positiocai parameters such as thxs are easily vxolatei 
because the graphic setup constraxas tne "aitimeta r-' zc 200 
meter iacreneats aad it is dirfxcuit to discern where 60 
meters falls. If the user violated tais parameter, it was 
obviously with the intent to go as low as possible without 
violating the parameter. It would seem reasonable, then, to 
modify the program in the following fashion: 



ALT=Z 1 

IF{ALT. GZ.HTMIN) proceed 
Otherwise 
ALT=HI;'1IN 
WRITE (6, 100) 

100 FORMAT ('OSER VIOLATES MINIMUM ALT RESTRICTION: 
♦COMPUTER CORRECTS; EXECUTION CONTINUES’) 

The following kind of situation is particularly frus- 
trating, as there is no clue given to the user as to what is 
the problem. The statement is found in a passage that is 
reading in data from a pre-established disk file. 

308 IF (MNUM. EQ. 1 . AND .LTR. EQ. 33) STOP 

MNUM-.EQ.1 represents the first data point entered into the 
program. LTR is a control variable, and code 83 is that used 
to signify that "aircraft" milestone entry is complete. 
Unless the user happens to have access to the program 
listing, there is nothing to indicate that s/he is 
attempting to read in a flawed data sat; yet selection of 
code 83 is permitted on the first data point entry when 
setting up the disk file. 
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The solution here is to simply route the program flc;; zo 
a message informing the user of the fifiiculty. 

308 IF (MNail.ZQ. 1. AND. LIB. EQ. 83) GOTO 100 
100 FORMAT(’ INEOT DATA IS FATALLY FLAWED, 

♦PROGRAM UNABLE TO CONTINUE, PROGRAM TERMINATES') 
STOP 



In conclusion, user friendliness using concepts as 
stated atove are incorporated into the improved version of 
ISMPIE. It is anticipated that as the scope of the users 
increases, more changes will become apparent. 
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III. SOMMHY CF ^aaONALITY BSTa^EN PFOGEABS 

The current and proposed methods of generating a flight 
path share a common objective: 

Accurately model the trajectory of a flight of a fixed- 
wing aircraft. Make the model realistic by subjecting the 
trajectory to the performance limitations of the real 
aircraft. 



The aircraft performance limitations for both programs are: 

1. acceleration along the longitudinal axis of the 

aircraft 

2. acceleration normal to the longitudinal axis ("g" 
loading) 



The forward acceleration is composed of components from; 

1. engine thrust 

2. aerodynamic drag 

3. gravity 

The normal acceleration is composed of components from: 



1 . 
2 . 
3. 



lift 

drag 

gravity 
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Figure 3.1 Elements Comprising Forward and Normal Acceleration. 

Figure 3.1 illustrates the components making up forward and 
normal accelerations. There are ten parameters of the 
trajectory which must be determined for subsequent use by 
F001 and MICE. They are: 



1. spatial components 


(x,y,z) 


2. velocity components 


(U,V,W) 


3. attitudinal components (heading angle ( U) ) 


( 9 ), and roll angle 


(jZ^) ) 


4. elapsed time 





pitch angle 



The overall method by which the components are generated in 
the two programs are the same: 
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1, Ihe ten components representing trans lation/rotatior. 
from one input milestone (x,v,z and velocity) to tae 
next are computed in the earth-fixed (inertial) coordi- 
nate system. 

2. The accelerations resulting from the displacement in 
the earth-fixed coordinate systems are transformed into 
the aircraft-fixed (rotational) coordinate system. 

5. Ihe thrust and g-load on the aircraft are computed. 

4. If the thrust and g-loading fall within predefined 
limits, the 10 components are accepted, written to file 
and the program re-initialized to accept the user’s 
next milestone. 

One difference between the current and the proposed 
program occurs in the treatment of the conditions of over- 
thrust and over-g-load. The current program halts the execu- 
tion and recuests a user fix to the milestone. The proposed 
program adjusts the parameters internally until thrust and 
g-limitations are met. 
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IV. SOjlMMY OF C0S2SNT IBMPIP 

The current method is described below. Three miiestoEes 
are used to compute average values or heading, diet and 
velocity components of the middle milestone. The flight 
path is always expressed as a straight line between two 
points. With this system, the invariables are the spatial 
coordinates of the milestones .and the "aircraft" speed at 



MS2(x,Y,Z,v) 




J 



Figure 4. 1 Invarients of the Current Trajectory. 

the waypoints. As the trace in figure 4,1 is generated, two 
tasks are accomplished: 
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1. Ihe user gets a "feel" for waere the aircraft is coirg 
on the map. 

2. Data is computed on the ten aircraft parameters, vhicn 

at the completion of a run of will oe suomirced 

to the batch programs PO0 1 and/or MICE. 

The data recuired by P001 and MICE are presented pictoraily 
in the following figures. 




Figure 4,2 Spatial Components. 
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Figure 4,3 



Telocity Components, 




Figure 4.4 Angular Displacements. 
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The method used to generate the above data will new be 
presented in the following figures. To make viewing conven- 
ient, ail diagrams will occupy the X-i plane with the under- 
standing that the discussion applies to the 
three-dimensional case. 




Figure 4.5 Computation of Spatial Components. 



DX1=(X2-X1) DX2=(X3-X2) 

DX1=(Y2-Y1) DY2=(Y3-Y2) 

D21=(Z2-Z1) D22=(Z3-Z2) 

DIST1 = SQRT (DXI **2+DY1**2 + DZl**2) 
BIST2=SQRT (DX2**2+DY2* *2 + DZ2*»2) 



24 



m 





r 



1 



(VZ-TE) 




(V3,T3) 



Figure 4.6 Computation of Average Velocity (Speed) 



VAVG1= (V2-71) /2 
VAVG2= (V3-V2) /2 



The elapsed time for the leg and total to the milestone are 
computed as follows: 

DT1=DIST1/VAVG1 

DT2=DI£T2/VAVG2 

T2=T1+DT1 

T3=I2+DT2 
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Figure 4.7 Computation of Average Velocity Components. 



VX1 = VAVG1* (DX1/DIST1) 
VY1=VAVG1 * (DY1/BIST1) 
VZ1 = VAVG1* { DZ1/DISI1) 



VX2=7AVG2* (DX2/DISI2) 
VY2=VAVG2* (DY2/DIST2) 
VZ2=VAVG2* (DZ2/DIST2) 
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Figure 4.8 Computation of Average Acceleration Components. 



DELIAT= (I3-T1) /2 

AX1= (VX2-VX 1) /DELTAT 
AY1=(VX2-VY1) /DELTA! 
AZ1= (VZ2-VZ 1) /DEITAT 



When at 
an attitude 
one (MSI) 
vectors are 
scheme. 



milestone two, the aircraft is presumed to have 
which is an average of the attitude at milestone 
and the attitude at milestone two (MS2) . Unit 
generated at MS2 using the following weighting 
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Figure 4.9 Components Required for Average Heading Vector. 
HDGAVG=DIST2/ (DISTUDI ST2) 

TDX=( (VX2/VAVG2)-(VX1/VAVG1) ) *HDGAVG + VX1/VAVG 1 
TDY= ( (VY2/VAVG2)- (VYVVAVG1) ) * HDGA VG + V Y 1 /V A V G 1 
IDZ=( (7Z2/VAVG2)-(VZ1/7AVG1) ) * HDGA7G + VZ 1 /VA VG 1 

The vectors are converted to direction cosines: 



aNIT=SQRT (TDX**2+TDY^*2 + TDZ**2) 

TCX=TDX/aNIT 

TDY=TDY/ONIT 

TEZ=TDZ/UNIT 
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Rotational angles can now be defined: 

HDo=ATiiN{ID VTDX) 

CA=AIAN (TDZ/SQRI (TDX** 2 + TDY**2) ) 

Ccnpntation of the roil angle is temporarily deferred. 
The accelerations in the earth-fixed coorainate systen must 
be transformed to the rotational coordinate system {see 
figure 4-10) below. 



Figure 4. 10 Transformation of Acceleration Components. 



The coordinate transformations are given without development 
[Ref. 1] 



r 



1 
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IMD = 


^COS(HDG)*COS (CA) ^ 


1 


fAXl ] 


< 


; SIN (HDG) =!^COS (CA) j 




AY1 1 




SIN { CA) I 




AZ1+GEE I 



EH= 




P? = 



^ COS (HDG) «SIN(CA) 
J SIN (HDG) *SIN (CA) 
COS(CA) 




Taxi 
I AY1 

AZ1 +GZZ 



TND= acceleration along the aircraft’s longitu- 
dinal axis 

PH= acceleration in the direction of the 
aircraft's right wing 

PP= acceleration in the direction of the top of 
the aircraft 

GEE=acceleration due to the earth's gravity (9.82 
in/s2) 



The roll angle of the aircraft with respect to the earth- 
fixed coordinate system is written; 



RA=-ATAN(PH/PP) 

The total aircraft lift is the vector sum of the accelera- 
tions normal to forward translation and is normal to the 
roll angle: 



ACLIFT=SQRT (PH * *2+PP** 2) 
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Both the forward translation acceieration and the lift or 
nornal acceleration are no n-dinensionalized by tne rrnvity 
tern : 



IlID 1=TMD/GEE 



ACLIFT1=aCLIFT/GZE 



The above is based upon the concept of force divided by 
weight: 



THRDST/WEIGHT = ffi (T.^D) /mg = T:1D/GES = TMDI 

Now aerodynamic drag on the airframe must be accounted 
for. Drag is computed using conventional aerodynamic egua- 
tions. Computation cf air density as a function of alti- 
tude: 



EHO=. 256*SXP(-. 103*Z2/1000) 

Z2= absolute altitude of milestone 2 in meters 



This equation is in the non-standard dimensions 
(lbf-sec2/f t2-meter2) and is therefore unacceptable. It will 
be supplanted in the following chapter. 

Computation of the coefficient of lift 

CL=2*ACLIFT/(RHC*V2**2/WL) 

WL= wing leading in lbf/ft2 



Computation of drag (non-dimensional) : 



DW= { (CD0«-CDK*CL=S‘=»‘2/CL) *ACLI?T 

CDO= coefficiejit of drag at zero angle of attacx 
CDK^CL*»2= drag due to lift 



Net longitudinal acceleration factor: 



TW=TMD+DN 



Speed brakes are accounted for by adding a surface area 
factor to the drag eguation: 

DR (s.b.)= ( (0. 05+CDO+CDK*CL**2) /CL) *ACLIf T 

0.05= 5 % of the wing surface area 



The limiting parameters are then: 

1. TW 

2. ACLIFT 
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IlilSOQSSSiSIi Ql Ihe phop o ssd hsihod 

A. OVEB7IES 

The proposed trajectory modules were written to satisfy 
the following goals; 

1. Retain user friendliness features. This is defined in 

the following fashion: once a user enters a waypoint 

(we are here renaming milestones) through the graphics, 
the computer should fit a flight path to that waypoint 
without any further action on the part of the user. 
Interpret this to mean the user cannot enter a fatal 
waypoint. 

2. The trajectory should closely match an actual 
aircraft's in spatial coordinates, linear velocities, 
and attitudinal rotations from the inertial coordinate 
system. 

Observe figure 5.1 for a comparison between the two systems. 

Qnder the proposed system the following gross events 
take place: 

1. The aircraft is defined at a beginning waypoint which 
is named "old". 

2, The user enters a next-waypoint, defined as "new", 

3. Linear acceleration components are computed from "old" 
to "new". 

4, Using the accelerations and an invariant increment of 
time, the aircraft is moved from "old" to a new point 
defined as "temp". 
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Figure 5.1 Comparison of Schemes. 



5. Knowing the displacement vectors that got us to "temp", 
velocity components at "temp" are computed. 

6. Knowing the displacement vectors that got us to "temp", 
angular displacements are computed 

7. Knowing the time increment, rotational velocities are 
computed. 

8. The linear iND rotational accelerations at "temp" are 
transformaed into aircraft-fixed coordinartes. 

9. The transformed accelerations are fed into the left 
hand side (LHS) of the Aircraft Sguations of Motion. 
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10. If thrust and g-ioad liaiitaitons are not exceeded, 
"tenp” becoaes an accepted point, the paraneters are 
written to file, the aap is updated bp oPxc tire i^cre- 
cent and "teap" becoaes new "oil”. 

11. The process is repeated until "old" becomes "new". 

12. The user is queried for the next waypoint. 

The new features are; 



1 . 



The computer flight path is now a 
of an actual flightpath and hence 
model. 



discret i 
is more 



cd version 
realis tic 



2. Rotational accelerations are accounted for. They are 
not accounted for in the present program. Thus, the 
present aircraft performance is artificially better 
than the performance of the real aircraft being 
modeled. Survivability data is too optimistic. 



Imposed on the above events is an iteration that does two 
things: 

1. If accelerations resulting from the user input lead to 
"aircraft" thrust and g-loadings less than the maximum 
defined, the accelerations are increased until thrust 
or g-loading hits maximum (whichever occurs first). 

2. If thrust or g-lcading are too great, either the user 
input velocity is adjusted downward or the "new" 
waypoint is moved in a straignt line away from the 
"old" waypoint, until thrust AND g-load fall within 
limitations. 

Number one was included under the philosophy that a pilot 
flying an aircraft which is being shot at will not be flying 
at less than the maximun available. A drawback to the 
current system is the user has no way of knowing (except by 



35 



exceeding iiniitations) whether the aircraft is at saxiriir. 
perfcraacce or not. Number two was included in keeping ith 
the desire to model the real aircraft as cioselv as 
possible. The hierarchy is based upon informal interviews 
with attack pilots attending NFS. 

The rest of the Chapter contains a detailed examination 
of the subroutines and an explanation of the variables 
related to riichtpath generation. All equations in the exam- 
inations are either dimen sionless or in SI units. The 
subsequent Chapter reviews the remaining subroutines of 
IBMPIP. The final Chapter summarizes the current status of 
the proposed IBMPIP. 

B. BIGCAL IE7EL SDBECDTINES 
1. EIGCAL 

a. expanded name: Big Call 

b. function: Big Call acts as a driver for the rest of 

the subroutines involved with flight trajectory 
genera ti on. 

c. eguations/calls : 



CALL 


TF.NFH M 


CALI 


NEWOLD 


CALL 


MVELOS 


CALL 


MVDOTS 


CALL 


DELVE C 


CALL 


TMPPN T 


CALL 


TMPVEL 


CALL 


INETRM 


CALL 


VSCTOE 


CALL 


ANGLE S 


CALL 


ROTEAT 


CALL 


ACTHM 1 


CALL 


ACTEM 2 
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CALI 


ACTRS3 


CALI 


ACRVSL 


•'I -p T 
-A.* JL 


ri <*.«• w 


CALI 


ACLhlS 


CALI 


XCHNG E 


CALI 


WAYPN T 


CALI 


FILE 


CALI 


GRAF IX 



2 . 



d. comments: The two advantages in this approach are 

the ability to treat all the flight trajectory 
subroutines as a single package and having this 
package accessed by a single call from the main 
program of lEJlPIP. 

IBUFEH 



a. 

b. 



c. 



expanded name: Iran 
function: Transfor 

which are acquired 
loads them into va 
trajectory package, 
equations/calls : 



sf orm 
m takes 
from 
riables 



the user 
the graph 
peculiar t 



defined values 
ics buffer and 
o the aircraft 



XNEfl= XI 
YNEW= Y1 
ZNEii= Z1 
VELCN=V1 



3. 



d. comments: 
icanipula ti 
af f ectin g 
in IBMPIP. 
tion of wa 



The above is 
on of the 
the non-BIGCAL 
Note that in 
ypcint "new" f 



done to pe 
waypoint v 
subroutin es 
effect, this 
or the trajec 



rmit "in-house" 
alues without 
found elsewhere 
is the defini- 
tory package. 
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a. expanded naae: froa Old to New 
c. function: Tie generation of shorter variab 

for the convenience of the prograaaer. 
c. eguations/calls; 

AG1=XNEW-X0LI! 

AH1=YNEW-Y0LD 

AI1 =ZNEN-ZOLD 

AJ1 =SQfiT (AG1**2 + AH1^*2+AI 

AJ2=SQHT(AG1**2+AH1**2) 




Figure 5.2 Establishment of Move Vectors. 
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d. comments: See figure 5.2. Note that AJ2 X3 the 

shadow of AJ1 on the x-y plane. 

4. MVELOS 

a. expanded naae: 'lap Coordinate Velocity Conponents 

b. function; Generates orthogonal velocity components 
for the user supplied speed at waypoint "new". 

c. equations/calls: 

IF(N.GT.O) GOTO 10 

UNEW=VELON* (AGl/AJi) 

VNSW=VELON* (AH1/AJ1) 

WNSW=VELON* (AI1/AJ1) 

10 CONIINUE 

N=1 

d. comments; The components are based upon the direc- 
tion cosines from '‘old" to "new". As the "aircraft" 
moves from "old" to "new" in the subsequent 
programs, the direction cosines can change, some- 
times drastically. Those changes are taking place 
along a temporary path which is "fuzzy" at first. It 
is fatal to the program for this "fuzziness" to be 
allowed to influence the endpoint velocity compo- 
nents (located at "new"). Therefore, the computation 
of the velocity components is restricted to one 
iteration between any given "old" and "new". There 
are some well defined exceptions will be discussed 
downstream. 

5. MVDCTS 

a. expanded name; Nap Coordinate Velocity-Cot 
Componen ts 

b. function; Establish the linear accelerations between 
waypoint "old" and "new". 

c. equations/calls; 
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ACC = (VSLON *=«=2-VSLOO**2) /(2*A J1) 
aDOI=ACC* ( AG1/AJ1) 
yD01=ACC* ( AH1/AJ1) 

KDOItACC-s^ ( AII/A J1) 



d. cominents: Again the components are based upon the 

direction cosines. The derivation of the eguaticn 

ACC = (VELCN**2-7EL00*^2) / C2*AJ1) 

is given in appendix 3. 

6. DELVEC 

a. expanded name; Delta Vectors 

b. function: Compute the components of a ds vector in 

preparation cf a move of the "aircraft" from "old" 
to a location "temp". "Temp" is a point along a 
curvilinear trace with the defined endpoints "old" 
and "new". Establishment of the points "temp" define 
the curvilinear trace. 

c. eguations/calls: 

DELX=UOLD* DELIEE + . 5<= UDOT*DELTEE **2 
D£LY=VOLD* DELIEE + . 5* VDOT* DELTEE** 2 
DELZ=SOLD* DEITEE + . 5* WD0T*DELTEE**2 
IF (AES (DELX) . GT. A3S (AG1) ) DELX=AG1 
IF (AES (DEL Y) . GT. A3S (AH 1 ) ) DELY = AH 1 
IF (AES (DELZ) . GT. A3S ( A1 1 ) ) DELZ = AI1 

d. comments; The equations 

DELX=UOLD*DELTEE+.5*UDOT*DELTEE**2 
D EL Y= VOLE* DELI EE+ . 5*VDOT*DSLTEE* *2 
DELZ=WOLD*DELTEE+.5*WDOI*DSLTEE**2 
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are conventional 
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Figure 5.3 Delta Vectors to the Temporary Point, 

aircraft is moved forward from "old" toward "new" by 
EZL amounts in the three orthogonal directions, 
utilizing the velocities and accelerations just 
computed. See figure 5.3. The logic statements 

IF (ABS (2ZLX) ,GI. ABS (AG1) ) DZLX=AG1 
IF (ABS (DILI) .GT. ABS (AH1) ) DELy=AH1 
IF (ABS (DZLZ) .G I. ABS (All)) DEL2=AI1 
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deal '.’ith the situation where the "aircraft" is 



7. 



sufficiently close to "new" that 
translation covered in one second 
tnat neeQea tc exactxy armve at 



the an cunt of 
IS greater than 

4LX C «1I \ ^ 1. <. H . i 1. W 



overshoot) . 
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a. expanded naae: Temporary Point 

b. function: Define in map coordinates the location of 

the point "temp". 

c. equations/calls ; 



XTEMr=XOLD+DELX 



YTEHP=YOLD+D£LY 
ZTEMF=ZOLD+DELZ 
IF (DELX.EQ.AG 1) XTSHP=XNSH 
IF (DELY.SQ.AH1) YIE.'1?= YNSW 
IF (DELZ.SQ. A1 1) ZTEKP=ZNEW 



d. comments: The first three equations 

XTEMP=XC1D+DELX 
YTSaP=YClD+DEL Y 
ZIEaP=ZClD+DELZ 

are self-explanatory. The group of logic statements 

IF (DELX.ZQ. AGI ) XTEMP=XNE:J 
IF (DELY. EC. AH1 ) YIEi1P=YNSW 
IF (DELZ.EQ.AI1 ) ZTSM?=ZNSW 

are in keeping with the need for exact arrival at 
"new". 

8. IMPVEL 

a. expanded name: Temporary Point Velocity Components 
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b. function: Generate velocity components for the point 
"temp’’ - 

c- equatior.s/calls : 



GTEMF=UOLD +UDOT*DELT SZ 

VTEMP=70LD+-VD0T*DELTZE 

STEME=SOLD+WDOI*DELTEZ 

IF (DELX.EQ.AG1) UTEM?=UNEK 

IF (DZLY.ZQ, AH1) VIZi'l ? = V!IE W 

IF (DZLZ.SQ.AI1) WIZa? = SiiEW 

VELOT=SQRT (DTSMP**2+ VTEM?**2+WTEMP**2) 



d. comments; The below equations 

UTEMP=UClD+aDOT*DELTEE 
VTE.'1? = VCLD+VD0I*DELTS£ 

mte;ip=wcld+wdot*deltee 

7EL0T = 3CHT (UTE MP* *2 + 7TEM ?**2 + WTE MP* * 2) 

are conventional dynamic equations and are derived 
in appendix E. The three logic statements 

IF (DSLX.EQ. AG1 ) UTEflP=UNSW 
IF (DSLY.EQ. AH1 ) 7TEMP=7NEW 
IF {DEL2 . EQ. All ) WTEi'1?= SJN EW 

again deal with the exact arrival at "new". 

9. INRIHM 

a. expanded name: Initial Rotational Transformation 

b. function: Convert velocitxes and accelerations which 
are defined in terms of map coordinate (y points 
North, X points East, and z points "up") components 
to a coordinate system which sees conventional use 
by aircraft designers (y points South, x points 
East, and z points "down" toward the earth). See 
appendix C. 
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c. eguations/calls : 



U1= UTEMP 
V1=-VTEMP 
W1=-HTZMP 
0D1= ODOT 
VD1 =-VDOT 
WD1=-WDOT 



d. ccmments: None. 

10. ANGLES 

a. expanded naiie: Angle Change Increments 

b. function: Compute the angles resulting from the 

"aircraft's” move from "old" to "temp". 

c. eguations/calls; 



D3= SQET (DELX**2 + DELY-*2+DELZ*«2) 

Ir (DELX.NE. 0.) GOTO 10 

If (DELX.SQ.O.. AND.DELY.LT.O.) 

* P3INEW=AA1 
IF(DZLX.EQ.O.. AND.DELY.GT.O.) 

* PSINEW=-AA1 
GOTO 20 

10 CONTINUE 

PSINEK=-A IAN (DELY/DELX) 

IF (DELX. GT. 0. . AND. DEL Y. EQ.O .) ?SINEW = 0. 
IF (DELX.LI.O. .AND.DELY.LT.O.) 

* PSINEW=AB 1+PSINES 

IF (DELX. LT.O. . AND. DEL Y. EQ. 0 .) PSINEW=A3 1 
IF (DELX. LI. 0. .AND.DELY.GT.O.) 

* PSINEH=PSINEW-AB1 

20 CONTINUE 

THENEH=ASIN (DELZ/DS) 
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TRNEAT= (P SINEH-P5I0LD) /DELTE2 

IF (PSIN'E'rf .GT.O.) PHINEW = 

* ATAN (ABS { TRNRAI^7ELOr/S. 7958) ) 

IF {?si::ei .LT.'}.) ?hine>:= 

* -ATAN (ABS (THNEAI*VELOT/9 .7958) ) 

IF (ESINEH.EQ.PSIOLD) PHINEw =?HIOLD 

d. coaiuent s: The aircraft has a particular attitude at 
the defined location "old". The movement to "temp" 
represents a "turn" toward "new". The angles are 
required for two reasons: tne fact that the vuln- 

erable area of the aircraft is a function of the 
aircraft’s attitude with respect to damage propoga- 
tors and the rotation of the aircraft in the turn 
generates additional accelerations which superpose 
on the linear ones just determined. These rota- 
tional accelerations must be accounted for when 
analysing the loads imposed on the aircraft. The 
variabl es 

AA1=1.5708 radians (90 degrees) 

AB 1=3. 1416 radians (130 degrees) 

represent recurring quadrant angles. The equations 

IF (DELX.NE. 0.) GOTO 10 

IF(DELX.EQ.O.. AND.DEIY.LT. 0.) 

* PSINEF=AA1 
IF(DELX.EQ.O.. AND.DELY.GT. 0.) 

* PSINEW=-AA1 
GOTO 20 

10 CONTINUE 

PSINEN=-ATAN (DELY/DELX) 

IF (DEIX. GT.O. .AND.DELY.EQ. 0.) ?SINEW=0. 

IF (DELX.LT.0..AND.DELY.LT.0.) 

* PSINEW=A3 1+PSINEW 
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IF (DELX.LT,0..AND,D£;LY.BQ.0.) PSIi'i£H = A£ 1 
IF (CELX.LI.O. . AND.DSLY.GT.O.) 

♦ PSINSW=?S INEW-A31 

determine the turn angle PSINEw. The turn angle 
(or heading change) is referenced from the positive 




Figure 5.4 Sense for Horizontal Turns. 

x-axis, is measured in radians, and may be either 
positive or negative. Positive is defined as a 
CLOCKWISE rotation. This sense is specified to 
insure compatibili ty with upcoming transformation 
matrices. See figure 5.4. The equation 

THENEW = ASIN (DELZ/DS) 
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defines an angle THENEH (thetanew) 
ceasure of the '‘aircraft’s" pitch above 



or 



f 

I 

I 




Figure 5.5 Sense for Pitch Above/Below the Horizon. 

the horizontal plane (horizon). Positive is 
defined as nose above the horizon. THENEW is meas- 
ured in radians. See figure 5.5. The roll angle 

PHINEW defines how much the right hand wing of the 
"aircraft" is rotated above or below the horizon. 
PHINEW is a function of PSIHEW and is related 
through the turn rate of the aircraft. The equation 



TRNRAT= (PSINSM -PSIOLD) /DELTEE 



defines turn rate as the heading change thar took 
place going from *'old" to '’temp" over the -eriod 
DILT22. The factor 9.7958 that appears in eguaticns 

IF (PSIN£» .GI.O. ) ?HINE'/?= 

* ATAiN (A3S (TENHAT’i^VELOI/S, 7953) ) 

IF (FSIKZW .LT.O.) PHi:i2W= 

# -ATAN(A3S (rEI>JRAT*7£L0T/9. 7953) ) 

is derived in appendix 3. The logic statement 

IF (PSINEK.EQ.PSIOLD) P HI N EW = ? HIO LD 

accounts for constant heading. It is written in 
this fashion to smooth the roll angle and therefore 
roll rate through the ’’new'* waypoint. This will be 
clarified in the comments on the next subroutine, 
n. ROTRAT 

a. expanded name: Rotational Rates 

b. function: Compute the orthogonal rotational rates 

that occurred as a result of the move from “old" to 
"temp". 

c. eguat ions/calls: 

PSIEOT=(P SINSW-PSIOLD) /DELTEE 
THEDOT=(THENEW-THEOLD) /DELTEE 
PHIDOT=(PHINEW-PHIOLD) /DELTEE 

d. comments: See figure 5.6 for rotation sense. 

12. ACIRHI 

a. expanded name: Aircraft Transformation Matrix #1 

b. function: Transform the velocity and acceleration 

components referenced to the earth-fixed coordinate 
system (x pointing East and z pointing down) into 
components referenced to coordinate system with x 
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Figure 5.6 Definition of Positive Rotations. 

pointing along the nose of tne aircraft (but still 
in the horizontal plane) and z pointing down, 
c. eguations/calls: 



ANG=PSINE d 

U2= COS (A NG) *U1+SIN (A2IG) *V1 
V2 = -SIN(A NG) »U1+C0S (ANG) *V1 
^^2 = W 1 

0D2= COS (ANG) *0D1+Si:i (ANG) *7D1 
VD2=-SIN (ANG) *UD1+C0S (ANG) *7D1 
WD2=FD1 
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d. coscents: See appendix C for a development of ail 

three transformation matrices, ACTHin, ACTHM2, an.i 
ACTEH3. The re'^uirement for the matrices stems from 
the requirement to transforra the earth- rixed coor- 
dindate system velocity and acceleration components 
into aircraft-fixed cocrdinate velocity and accel- 
eration components. Because the rotations being 
dealt with are discrete rather than differential, 
the order of the transformation matrices is fixed. 
This is also demonstrated in appendix C. 

13. ACTEh2 

a. expanded name; Aircraft Transformation datrix #2 

b. function: Carry out the second transformation 

whereby the x-axis is rotated up/down out of the 
horizontal plane to go througn the nose of the 
aircraf t. 

c. eguations/calls: 



ANG=TH2NE W 

D3=C0S (ANG) *U2-SIH (A.IG) *W2 
V3=72 

K3=SIN (ANG) *U2 + C0S (AUG) *W2 
OD3=COS(ANG) *UD2-SIU (ANG) *WD2 
VD3=VD2 

WD3=SIN (A NG) *UD2+C0S (ANG) *WD2 

d. commentsrSee appendix C, 

14. AC1EM3 

a. expanded name: Aircraft Transformation Matrix #3 

b. function: Carry out the third transformation 

whereby the y-axis is rotated up/down out of the 
horizontal plane to go through the right wing (as 
referenced from the cockpit) . 

c. eguations/calls: 
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ANG=PHINE W 
u A C=U3 

VAC= COS ( ANG ) V5 + 31 N (ANG) '^'A3 
:t Ac=-si:; { asg) *v3<-cos (ang) *:i3 
UDCIAC=UD3 

VDCTAC= cos (ANG) *VD3 + SIN (ANG) *KD3 
wdco:ac=-sin (ang) *vd3+cos (ang) * ;id3 



d. ccmments: See appendix C. 

15. ACHVEL 

a. expanded name: Aircraft Rotational Velocities 

b. function: Convert (transform) the rotational veloci- 
ties from the earth-fixed coordinate system to the 
aircr aft- fixed coordinate system. 

c. eguations/calls : 

ANG1=TH2N EK 
ANG2=PHIN EK 

P=PHIDOT- SIN (ANG1) *PSIDOT 
Q= COS (ANG2) *THEDOT 

* COS (AN G1) *SIN (ANG2) *?SIDOT 
R=-SIN(ANG2) *THEDOI 

* COS (ANG1) *COS (ANG2) *PSIDOT 

d. comments: See figure 5.7 for sense. See appendix C 
for derivation. 

16. ACACC 

a. expanded name: Aircraft Accelerations 

b. function: Sum up the linear and rotational acceler- 
ations imposed on the aircraft. 

c. eguations/calls: 
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Figure 5.7 Aircraft Rotational Velocities, 

AX=UD0TAC-VAC*R+VAC*2 

AY=VDOTAC+UAC*R-WAC*? 

AZ=WBOTAC-UAC*Q+VAC*P 
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d. coEiments: None. 

ACLMIS 

a, expanded name: Aircraft Limitations 

b. function: This is the key subroutine of the trajec- 
tory package. It calls for computation of the 
forces imposed on the aircraft and compares the 
forces to allowable values. If the forces are too 
great, it initiates a selective reduction in the 
earth-fixed acceleration components until the 
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forces on the aircraft fall within iiiitaticns . If 
the forces are less than aliowafle vaiaes it initi- 
ates a selective increase in earth-fi:ced accelera- 
tion components until tae maximum aiiowanle xs 
reached . 

c. equations/calls: 

CAII THHCIST 

IF (A N.LT. Alh-IAX. AND. FIvDACC.LI. IKMAX) 

* CALL 300SIR 

IF {A N. GT. ANHAX.OR.FWDACC. GT. THilAX) 

♦ CALL REDUCE 

d. comments; None. 

13. XCHNGS 

a. expanded name: Exchange 

b. function: Cnee the performance of the aircraft has 

been maximized at the point "temp", "temp" becomes 

accepted as a point along the trace toward waypoint 

1 

"new". "Old" is moved up to "temp". 

c. eg uat ions /calls: 

XOID=XTEM P 

YOLE=YTE«P 

ZOIE=ZTSap 

OOLE=UTEMP 

VOLB=VTSMP 

WOLE=WTEMP 

PSICLD=PS INEW 

TKECLD=THENEW 

PHICLD=PHINEW 

VSICO=VELOT 
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d. coEticents; This is, in effect, the movement fcrvard 
of the ''aircraft” to "reap”, the next ircrv- ,'e:. c 
toward waypoint "new". 

r* v:; 'T 

a. expanded name: Waypoint 

b. function: Load the accepted values into vectors for 
use elsewhere in the non-BIGCAL portion of I3t!rl?. 

c. eguations/cails : 



WX (ICT) =XOLD 
wy (ICT) =y OLD 
ilZ (ICT) =ZOLD 
WD (ICT) =UOLD 
WV (ICT) =VOLD 
WW (ICT) =WOLD 
W3 (ICT) =- PSINEW 
W?(ICT)= IHENEK 
WE (ICT) =- PHI NEW 
WG (ICT) =A N 

T (ICT) =T (ICT-1) +DELTES 

d. comments: The minus signs appear in WH(ICT)= and 

WE (ICT) = to account for transformation back into 
the original map coordinate system which has z 
pointing up. 

20. FILE 

a. expanded name: Write to file 

b. function: Immediately write ail the appropriate 

information to disk file for future use 

c. eguations/calls; 



IF (XOLD. NE.XNEW.OS. fOLD. NE. YNEW. CE.ZCLD.NE. ZNEW) 
* GOTO 10 
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WRITE (1 1, 100) I (Id) ,WX (ICT) , h'Y (ICT) ,WZ (ICT) , 

* WU (ICI) ,WV (ICT) (ICT) , 

* Wn (ICT) , a'P (ICT) , (IJT) , 

* T3 (ICT), LIT 
BZTU SM 

10 COJillNUE 

LTS=0 

WRITE (11, 100) T (ICT) ,WX (ICT) ,HY (ICT) ,W2 (ICT) , 

* WO (ICT) ,Wy(ICT) ,WW (ICT) , 

* WH (ICT) ,H? (ICT) ,WR (ICT) , 

* WG (ICT) , LTR 
100 FORMAT (11 (FI 0,2, IX) , 13) 

d. comments: The if statement is the current method of 
" breaking out” of BIGCAL when the program arrives 
at the waypoint "new”. To aid in reading the data 
files the control variable LTR is set to zero for 
all the interim points on the curve. LTR is a noti- 
fication by the user of arrival at certain key 
points in the game scenario and are described else- 
where. 

21. GRAFIX 

a. expanded name: Graphics subroutine 

b. function: Ose the WX(ICWT) and WY(ICNT) vector 

values to plot the trace of the flightpath on the 
graphics screen. 

c. eguations/calls: 

PX1=WX (ICT-1) 

PY1=WY (ICT-1) 

PX2=WX (ICT) 

PY2=WY (ICT) 

CALL WIN (MINX, MAXX, 13000. , 12000. ,0) 

CAII GS7ECT(0.,?X1,PY1) 
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CALI GBVECT (1. ,?X2,?Y2) 

CALL GSFRCS 

d. coxamencs; The equations 

PX1=WX (ICT- 1) 

P Y1 =WY (ICT-1) 

?X2=WX (ICT) 

PY2=WY (ICT) 

establish the teginning and end points of the draw. 
The call to the subroutine WIN (window) 

CALL WIN (MINX, MAXX, 1 80 00 . , 1 20 00. , 0) 

reaches into non-BIGCAL IBMPIP. For here it is 
simply described as a definer of the portion of the 
graphics screen on which tae drawing is to take 
place. The calls 

CALL GBVZCT (0. ,PX1,?Y1) 

CALL GBVZCT (1. ,?X2, PY2) 

are calls to the graphics package GRAF 77, the IBM 
graphics package at Naval Postgraduate School. 
GBVZCT passing a (0.) interprets as "Move to the 
following coordinates.”. GBVZCT passing a (1.) 
interprets as "Draw to the following coordinates”. 
The final call 

CALL GSrHCZ 

forces the actual updating of the graphics screen 
with the move and draw just called for. 
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C. THIED LAYER SUBRCOTINES 

The following suoroutines are accessed througr. 

Their overall function is to coapuce the forces oa the 
"aircraft” based on the accelerations in the "aircraft's" 
coordinate system. Cnee the forces are established, a forth 
level subroutine, which will be included here for conti- 
nuity, re-drives the higher level subroutines to iterate 
(ultimately) the forces to within limitations. 

1, THRUST 

a. expanded name: Thrust and g-load 

b. function; Establish the forward acceleration and 
g-lcad on the airframe, 

c. eguations/calls : 

ANG=IHENEW 
THRQD=AX/G EE 

AN=SCRT (AY **2+AZ**2) /GEE 
SIGMA= ( 1 + D I3H*2TE;1?/T0) 2 57 

RHOA1T=EHO SSL^SIGHA 
CL= (2,*AN*WL)/(RHOALT*VELOT**2) 

DRAG=AN* ( { CD0+CDK*CL**2) /CL) 

ESDACC=SIN (ANG) +THRQD + DRAG 

d. comments: The equation 

AHG=THSNEW 

establishes the "aircraft's" attitude above or below 
the horizon and is necessary for computing the 
direction through which gravity forces act upon the 
"aircraft". The following equations respectively 

THRQD=AX/GEE 

AN=SQRT (AY**2+ A2**2) /GEE 
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compute the longitudinal non-dimensionalized 
acceleration cased or. the user's desired rove an^ 
the composite non-aiaer.sionali zed acceierarion 
perpindicular to the longitudinal axis- Tre nex*- 
eg nation 

SIGMA= ( 1+DTDH*ZIEap/T0) **4.257 

is the density ratio (altitude to sea-level) and is 
a function cf standard temperature lapse rate and 
altitude. It is derived in appendix 3. Ihe density 
at altitude is then 

RH0ALT=EH0S3L*SIG«A 

the density at sea- level tines the given ratio. The 
density, velocity, non-dimensional g-load and wing 
loading (found in BLOCK DATA) are 

CL= (2.*AN*HL) / (EH0ALT*VEL0T**2) 

•fed into the equation for coefficient of lift. Drag 
is a function of the coefficient and is given as: 

DRAG=AN* ((CDO<- CDK*CL**2) /CL) 

The components gravity, forward acceleration 

(required) and the 

FIvDACC=£IN (ANG) +THHQD + DEAG 

resulting drag on the airframe are sunned to give 
the total forward acceleration on the "aircraft". 
(The acceleration will be negative if user "slows 
down". ) 

2. EOGSTH 

a. expanded name: Performance booster 

b. function: Increase the "aircraft" performance up to 

the allowable maximum thrust or g-load, whichever is 
smaller. 
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c. equations/calls; 



'ICO KI=1 

5 CONTINUE 

1 = 0 

IF (AGl.EQ. DELX.OH.AGl.EQ.O.) GOTO 10 

IF (ABS (AG1) .LT. A3S (AHl) .AND. A3S (AG1) .LI 
^ ABS (A 11)) 1=1 

IF(I.NE. 1) GOTO 10 
UDOT= 1. 02*UDOT 

10 CONTINUE 

IF (AHl. EQ. DELI. OR. AH 1 . SQ. 0- ) GOTO 20 

IF (AB S (AHl) .LT. ABS (AG1) . AND. ABS (Anl ) . LT 

* ABS (A II)) 1=2 

IF(I.NE. 2) GOTO 20 
7DOT=1.02*VDOT 

20 CONTINUE 

IF (AII.EQ. DELZ.OR.AII.EQ.O.) GOTO 30 

IF (ABS (All) .LI. A3S (A Gl) . AN D . A3 S (A II ) . L T 

* A5S(AH1)) 1=3 

Ir(I. NE. 3) GOTO 30 
NDOI= 1. 0 2*NDOI 

30 CONTINUE 

IF (AGl- EQ. DELX. OE. AG 1 . EQ. 0.) GOTO 40 

IF (ABS (AG1) .EQ. ABS (All) . AN D . A3 S ( AG1 ) . L T 

* ABS (A HI) ) 1=4 

IF(I.NE.4) GOTO 40 
UDOT=1. 02*UDOT 
NDOT= 1. 0 2*'wDOT 

40 CONTINUE 

IF (AK1. EQ. DELI. OR. AHl . EQ. 0.) GOTO 50 

IF (ABS (AGI) . EQ. ABS (AHl) . AND. ABS (AGl ) . LT 

* ASS(AII)) 1=5 

IF(I.NE.5) GOTO 50 

5 3 
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I 



UDOT= 1 . 02*UDOT 
VDOT=1.02*yDOT 

50 COJTINU^ 

j. * ^ .rt ^ 1 • *- ♦ o .. . / 1 "1 i j c , ' j t ■> 

If (.\3 S (A H 1 ) . £ 2. A33 ( A1 1) . Ai; l, . Ar> S ( A - 1 ) . ^ . 
■-i^ ABS(AGI)) 1=0 

IF (I. No. 3) GOIC bO 
VD0T= 1 •02=!'VDOI 
N30i= 1. 0 2 ’^::do: 

60 CONTINUE 

CALL SULCAL 
CALI THRUST 

IF (Ail.GE. ANdAX.CR.rUjACC.GE. IHUAX) GCTC 70 
GOTO 5 

70 CONTINUE 

I F ( Ai; . G I. A N ■’ A X) A : = A N -i ' X 
IF (FUDACC. GT. IHU.-iX) F'.' 3 ACC = I ANA:; 



ts: The logic statements 






F (AG 1 . ZQ.DELX . OF; . AG 1 . E D • 0 . ) 


GOTO 


10 


F (AHl. EQ.DELY . OF . A H 1 . - 0 . ) 


GOTO 


2 0 


F (AI 1. ZQ. D5LZ .OF .All. ZQ. ). ) 


GOTO 


30 


F ( AG 1 . ZQ. DZLX .OH. AG 1. ZQ . 0. ) 


GOTO 


40 


F (AHl. ZQ.DZLY.CE.AHI.ZC.O.) 


GOTO 


50 


ir (Aal.it^.DiiLZ.O^.Axl.£«^.0.) 


GOTO 


60 



avoid iterating on orthogonal directions that are 
defined as zero by user input and to turn off itera- 
tion when then "aircraft" has arrived at the desti- 
nation (in that coordinate plane) . The logic 
equations that follow choose tne direction 



IF (ABS (AG1) -LT. A3S (AHl) .AND. ABS (AG1) .LI 
A3S(AI1)) 1 = 1 

IF (ABS (AHl) .LT. ABS (AGl) .AND. AES (AHl) .IT 



bO 



r 



I 



I 



* AB5(AI1)) 1 = 2 

I? (A3 S (All } - AT. A3S (AG1) .AMD. A3 3 ( A T f ) . A A . 
A2S(A!i1)) 1 = 3 

j. (A3— (AG i ) . — V. • -i 3 3 ( A j. t ) . . A — — (, -i o 1 ) . — _ . 

* A3 S (A HI)) 1 = 4 

IF(A3o(AijT) .AQ.A3S (A. 1 I) «A^i3.aOo(ri\?'])«lj — . 

A53(AI1)) 1=5 



* 



IF (ADS (Anlj .3Q. 
A33(AG1)) I=b 



(AH) 



; S ( A 1 1 ) . L i 



XI. Vi'iXCil tri0 XtGXXtXOii XS to XX/IG oldCS. Ii. A 3G— GC~ 

ticn criterea is the coordinate pxane ir. vhicr. txtre 
is the least distance left to jo to the destxi^ation. 
Thus for snail altitude ci.an^es, the "aircraft" ^ill 
"pcp-up" to the desired altitude as soon as physi- 
cally possible- In otner situatxons the "aircraft" 
Wx-L— c u. JL 4 * ZT. shcrtciSt d-ir6ct.Lori i-ltsc. Jirxaxly/ 
acceleration (in nap coordinates) in the seiecxei 
coordinate plane in xncre^sea ir. naynitade 



3 . 



’JDOT= 1 . 02*dDOI 
VD0T=1 . 02*730 :• 

FDCT= 1 . G2*7DCr 

until perfor.nance 1 i.Ti xtations are reac.ied. 

5IDUCS 

a. expanded nane: Denanded perfornance reducer 

b. function: For a user defined waypoint that exceeds 

the allowable aaxinu.a thrust or g-load, whichever is 
smaller, reduce the cerior.tdnce demand. 

c. ecuations/calls : 



HCO MI=1 

5 CONTINUE 

7ELCN=VZL0 N-3ZLTV 
A=VSTALL+2 .*DELT7 

6 1 



IF (VELC.'i. 3 E. A) 3oIG 10 
iwi .3 ~ C C' S ( k 3 1 / A J 4 ) 

AJ2=1 . 1 - AJ2 
AG 1 = C C ' ; AFG; - VJ 2 
ii r* 1 “ ^ X ( A t» '.7 ) .1 tJ 2 

7ZLON=V1 

10 CONTINUE 

N = 0 

CALI N7EL0S 
CALL MVDOIS 
CALI SMLCAL 
CALI THRUST 

IF (AN.LE. A NKAX.AND.FKDACC. LE.THHAX) GOTO 20 
GOTO 5 

d. coaiineQts: The tact adopted is different from the one 
chosen for ECOSTR, The "aircraft" in moving from 
"old" to "nev" has a radias of curvature. When the 
performance limitations of the "aircraft" are 
exceeded, this means the "aircraft" cannot fly with 
a small enough radius of curvature to converge on 
the waypoint "new" . The two available means of 
meeting the demand are to decrease the "aircraft's" 
deliverable radius of curvature by reducing the 
destination ("new") velocity or increase the 
demanded radius of curvature to something the 
"aircraft" can accomplish by moving the point "new" 
further away from the point "old". Fraguently a 
small change in velocity is sufficient, therefore 

VEL0N=VE10N-D3LTV 



is chosen as the first iteration. DELTV is a 
velocity increment found in BLOCK DATA and 
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I 








represents approxi 
seters per second- 
sentative of an att 
airspeed control, 
airspeed may re red 
tation of the aircr 



mately five knots airspeed 
This value was chosen as rey 
ack pilot’s naxiEum precision 
There is a lower bound to nv. 



uced, and tnat is the stall li 
aft. I-Jhen tae "aircraft” is 



1 n 
icr. 
ri- 



A=VSTALl+2. *D2LTV 
IT (VELOT.Gi.A) GCIO 10 

close to this limit, tne second portion of the 
subroutine is invoked 



AUG 


II 

n 

o 


S (AG1/A J2) 


AJ2 


=1. 1 


*AJ2 




AG1 


II 

n 

o 


(ANG) 


*AJ2 


AHl 


=SIN 


(AHG) 


*A J2 


V31 


0N = V 


1 





to move the point ’’new" furrher out. Note the final 
equation; the view is adopted tnat an attack pilot 
will not wish to be at a minimuiL energy anywhere in 
the appraoch phase. Therefore the originally 
selected airspeed is reset into the iteration. 

In summation, this approach was taken in preference 
to merely setting demanded performance equal to 
maximum deliverable performance to avoid the unreal- 
istic scnaric depicted in figure 5.8 
4. SNLCAL 

a. expanded name; Small call 

b. function: This forth level sunroutine was written as 
a programmer convenience to drive the iterations. 

c. equations/calls: 



CAIL 

CALL T.1PPST 
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UNTIL ACi COLLAPSES TO ZERO 



Figure 5.8 Unrealistic Scenario- 

CALL TilPVSL 
CALL INr.TE.1 
CALL ANGLES 
CALI HOTP.AT 
CALL ACTRM1 
CALL ACTRN2 
CALL ACTSM3 
CALL ACHVEL 
CALL ACACC 

d. comments: As can be seen the subroutines are those 

previously described. 
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VI. wqn-eig^l I3iip ip subrout ine s 

A. INIECDOCTION 

for the sake of trevity, the only subroutine addressed 
in the section below is the one that was drastically altered 
to accoaodate the 3IGCAL package. The rest of the subrou- 
tines that are not aentioned may be found in the listing at 
the end of the thesis. They will have changes froa the Jonns 
[Ref. 1] version of IB.^FIP but will also have extensive 
numbers of coaaent cards to describe to xey points of each 
subroutine. 

The final section provides a consolidated listing of the 
graphics calls along with a short description of their use. 
For foliow-cn alterations to this version of I3MPIP the user 
should consult [Ref. 2] for complete description of the 
available graphics subroutines. 

B. SDBRCOTINES 



1. ERRCHK 

a. expanded name: Error checking 

b. function: Check the user defined "new” waypoint for 

game rule violations or user commands before 
entering into the BIGCAL subroutines. 

c. eguations/calls ; 



DX=TARGX-X 1 
D Y=TAEGY-Y 1 
DIST=SQRT (DX**2+DY**2) 

IF (DIST.LE .POPMIN) GOTO 10 

I? (Z1 .GT. APPMAX) Z1 = AP?.'1AX 
IF (21 .LT.HTIilH) Zl = HThIN 
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( 

I 



10 

20 

30 

40 

50 

60 



CONIINUZ 

IF {LIR. liE. 65.C:t.LrH2.iiE.fc5) GOTO 20 
IF (Z1 .LI.3AALI) Z1=3AALI 
COrJUHUE 

I? (HE. ME. 66. 0R.LIR2. NE. 66) GOZO 60 
IF (Z1 .LT.3EMIN) Z1 = 5RtIIM 
IF (Z1 .GT.BHMAX) Z1=3EMAX 
IF (DISI. LZ-3RHaAX.AMD.DIST.GE. 3EEMIN) 

IF (DIST.GT.3H?.:-!AX) IERE = 9 
IF (DIST. LI. 3REaiM) ISEE=13 
RETURN 
CONTI NUE 

TGTHDG=AIAN2{DY,DX) *ETD 

IF (TGTKDG. LT. 0- ) TGTHDG=TGTHDG+36 0. 

DX=X1 -HX (ICT) 

DY=Y1 -WY (ICT) 

ACHDG=AIAN2 (DY, DX) *ETD 

IF (AC HDG.LT.O.) AC HD G=A CHDG+ 3 6 0- 

HDGLaT=AB5 (TGTHDG-AC KDG) 

IF (HDGLai. LS. 5. ) GOTO 40 
IERE=10 
RETURN 
CONTI NUE 

DIST= SQET (DX**2+DY**2) 

SPSED=SQET (WU (ICT) + (ICT) **2 + wN (ICT) **2) 
DT=DI ST/SPEED 
IF (DT.GE.2.33) GOTO 50 
ISRE=10 
RETURN 
CONTI NUE 
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CONTINUE 




< 



I 

I 

I 



d. ccisments: The first egiiatioiiS estailrsn the distdLce 
from 

D X = i A R G A ~ X 1 
DY=IABGI-Y 1 
DIS!I=SQET ( DZ**2 + DY** 2) 

the vaypoint "new” to the target. The next group of 
equations 

I? {DIST.lZ.POPdlh) continue 

IR (Z1.GI. APP:^Aa) 31 = A??MAX 
IF (21.lt, HTillN) Z1=HTMIN 
CONTINUE 

look, at the user input altitude. If the user exceeds 
either the maximum or minimum inhound altitudes, the 
input altitude is automatically set to the limiting 
paramter. ArFdAX ,KTNIN, and POPMIN are found in 
BLOCK DATA. Ihe next goup of lines satisfy the game 
parameter that the "aircraft" must he "popped-up" to 
a given altitude berore aim at the target can be 
taken. ITS is the code passed from 

IF (LTR. NE.6 5.0R.LTR2.NE. 65) continue 
IF (21. LT. BAALT) Z1 = 3AALT 
CONTINUE 

the graphics subroutines signifying that the bomb 
aim line is desired. LTR2 is a back-up code passed 
- from the same subroutines and allows the user to 
change his/her mind while still entering data. LTR 
is generated upon entry of the X-Y point on the 
graphics screen. LTB2 is generated upon entry of the 
Z-velocity point on the graphics screen. BAALT is 
the mnemonic for bomb aim altitude and is found in 
BLOCK DATA. The following statements all relate to 
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the boah release poict. If boiab release is rot 
called for; 



. ^ , -r rn .V7— a ’’’T .-.C\ r' T ^ C d 

.a. ^ ^ ^ 4* si VV <■ O ^ 1. M • kill .ta \J y '.J .1 vl 



skips over all the rest ana returns to ilAIh’. If at 
tomb release the altitude is too high or lov, 

IF (Z1.LT.PFMIN) Zl = BRilIN 

IF (21 . GI.EE.'!AX) Zl = BR;iAX 

set the altitude to the linieum/n'axiir.uiii allowable. 
ERMIN is the amemonic for ainiaum boab release alti- 
tude, BRMAX is similiar, and both are defined in 
BLOCK DATA. Because the flight path is now curvili- 
near, there is no convenient way to correct for an 
input that violates siniauji or maximum bomb release 
range (from target) . Error codes are generated that 
inform the user that the just-entered point will 
have to be coved. BRHMAX and BRRHIN are found in 
BLOCK DATA. 



IF (DIST.IE.BERMAX. AND.DI3T.GE.3RRMIN) continue 
IF (DIST.G I.ERRMAX) IERR = 9 
IF (EIST.LT.BHRMIN) IE3R= 13 
RETURN 
CONTINUE 

The following group of statements compare the 
heading from the aimpoint to the target with the 
aircraft neading to the target. 

TGTHDG = ATAN2 (DY,DX) *RTD 
IF (TGTHCG.lt. 0 .) IGTHDG=TGTKDG+360. 

DX=X1-WX (ICT) 

DY= Y1-WY (ICT) 

ACHDG=ATAN2 (DY ,DX) *RTD 
IF (ACHDG.lt. 0. ) ACHDG=ACHDG + 360. 
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ii D G L:1 T = Ji 5 5 { 'TG T h' D G - \ C H D G ; 
i.r «} 

I EBP- 10 
EE TUB N 
CONTINUE 



If the "aircraft" heading is not within five degirees 
of the aimlir.e tne user is informed, and the point 
must be user moved. ETD is the mnemonic for radians 
to degrees and is found in 3LCCK CAIA. If the 
aircraft does not travel down the aimline for a 
minimum of 2.33 seconds 

DIST=SCEI (DX** 2+DY**2) 

SPEED = SQET (WU ( ICT) **2+117 (ICT) **2 + NK (ICT) **2) 
DT=DIST/SPEED 

IF (DT. GE.2. 33) GOTO continue 
ISEE=11 
RETURN 
CONTINUE 

the user is informed, and must make tne correction. 

C. GRAPHIC CALLS 
DSINIT 

function: Initialise both of the 3277 screens. 

DSTERN 

function: Terminates dual screen graphics activity. 
GASVIE (aa,bb) 

function: Defines a viewport, or a smaller portion of 

the total graphics screen available. Allows subdividing 
the total screen into several smaller pictures. 
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3ASWIN (aa,bb) 



function: Takes the data bexng sui^piied by the us-^r's 

equations and converts it into absolute graphic screen 
coordinates in preparation for drawing. Taxes care or 
propcrtionali t j . 

GAXCII (aa,bb,cc,dd,ee) 

function: Convert user supplied character strings into 

integer vectors. 

GAXITC (aa/hO/CC/dd^ ee) 

function: Convert one or store integers into characters 

in preparation for writing onto the graphics screen. 

GfiCHAR (aa,bb / cc, dd ,66/ if ) 

function: Invokes two lower-level graphics calls to 

write characters on the graphics screen in the iefinei 
font- 

G3GASC(aa,bb,cc,dd,ee,ff,gg) 

function: Invokes two lower-level graphics call to 

generate an arc of either a circle or an ellipse (can 
also be tne whole circle, etc) . ' 

G3GD0 1 (aa ,bb , cc) 

function: Invokes two lower-level subroutines to draw a 
filled-in dot. 

GBHXYC {aa,bb ,cc) 

function: Head cne graphic data point using the cursor 

cross-hairs . 

GB VECT (aa ,bb , cc) 

function: Generates a "move-to” or a "draw-to" coaiaand, 
depending on whether (aa) is zero or non-zero (real 
number) . 

GSEHSZ 

function: Erase the graphics screen. 
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GSFECZ 

function: Force a;’’, immediate ipdate of the cr^.paica 

screen with new data. 

GSLI (aa) 

function; Sets the line type to be used for a IT ci V in ^ 
(dot, dashed, etc.). 



VII. STATUS CF PRO POS ED IBMPIP AUD SUMMARY 

Despite best efforts, tne proposed version is not ready 
for imp le mentation. The flaws revealed by extensive testing, 
center around the two iterative subroutines and are felt to 
be solvable. In particular, subroutine dVDOTS does not 
account for the following situation, sea figure 7.1: 




VOID 




OOLO 



A3i 



'‘NEW" 

— • 9 - 

UNEW 



AIRCRAFT trajectory 
AT “OLD" 



X 



m 



Figure 7.1 A Situation Not Addressed By Subroutine ACACC. 



ACC = (VELON**2-VELOO* *2) / (2*AJ1) 
UDOT = (AG 1/AJ1 ) *ACC = 1 . *ACC = ACC 
VDOT = (0./AJl)*ACC = 0. 
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We see that by tne model, 7DOT=0. Realistically, this viil 

not be so. There is a VOID and tne ''aircraft” vi_l move 
some Y distance nelcw "old”. Let that distance be r.a-eu 



Y ( a n Xnc V n) or YU MK , 



.ally be: 



VDCT=VOLD**2/ (2*YUNK) — or some positive value. 



The best estimate at an approach would be either to guess a 
temporary distance based upon the ratio; 

(VCID/UOLD) *AG1 



or to guess a temporary distance based upon a linear guess 
of the elapsed time between ''old” and "new”. Let linear time 
estimate be represented by LTE, then: 



LI5=ABS({UN2W-UCLD) /UDOT) 
YUWK=VOLD*LTE 

VDOT=-VOLD/ (2* ( (UWEW-U CLD) /UDOT) ) 



Another area of concern is in the definition of the 
angles in subroutine ANGLES. Artificially large effects are 
felt in the angles PSINEW and PHINEW if DELX or DELY 
collapse to zero before the "aircraft” arrives at "new" in 
all three orthogonal planes. Additionally, large effects are 
produced in the last DEL- movement to "new", causing a 
hang-up in the 30CSTH/RE DUCR subroutines. Because the 
current game restricts altitude changes to approximately one 
magnitude less than either X or Y changes, the effect by 
THENEW (theta) is roughly one magnitude less througnout. To 
pave the way for future efforts to smooth out the angle 
changes between "old” and "new”, the variable counter MCCNT 
was added to T OMMON/AEZ5/. MCCNT is set from 0 to 1 by acti- 
vation of either BOOSTS or REDUCR and switched back to 0 
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upon exit froa either iterative loop. As numerical data are 
written to test files, the addation of MCONT as another 
column allows differentiation of first- ^-uess values from the 
HOOSTH/REDUCR generated values. 

The Question was asked, "If the angles (and therefore 
rotational rates and therefore angular acceleration) compo- 
nents are so troublesome, how necessary are they to tne 
accuracy of the output?"- iin analysis of the individual 
acceleration components in subroutine ACACC revealed that 
omission of the angular accelerations could lead to as much 
as a 50 rc difference in the magnitude of the net acceleration 
in any one of the erthog cnal directions imposed on the 
aircraft. The answer then, is that smooth generation of 
angles is necessary if the modelled trajectory is to be 
considered faithful to a real flightpath. 

In summation, a proposed IBhPI? improvement has been 
introduced and discussed. It is substantially more user 
friendly. It employs increased use of specialized graphics 

I 

from [Ref* 2] and when completely debugged, will provide a 
far more accurate flightpath trace with less user interac- 
tion necessary. 



74 



APPENMX A 



USER'S fSARDAL ?0R CURRENT I3MFIP. 



USER'S NANUAL 
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I. INTHODUCTION 



This aircraft attrition study is designed to present the 
student vith an opportunity to see first-hand how the 
survivability of an aircraft can be evaluated in a given 
combat scenario. The methods emplcyed in this study are 
those used by both industry and government whan making 
decisions in the survivability analysis and design of an 
aircraft system. In this study, one computer program named 
pool (the AFATL Antiaircraft Artillery Simulation Computer 
Program) will be used to simulate the flight of a typical 
Naval attack aircraft through a hostile antiaircraft 
artillery (AAA) environment and tc compute the aircraft 
probability of survival- Another computer program, MICE II ( 
the ilissle Intercept Capability Evaluation Program) , will be 
used to compute the survivability of the aircraft on the 
same flight path against a typical short-tc-nediuo range 
surface-to-air missle (3AH). 

The DOD specifies the use of P001 and HICS in all 
nonnuclear survivability assessments in MIL-STD- 20 69 , 
HEQUISEHENTS FOR AIRCRAFT NONNUCLEAB SURVIVABILITY PROGRAM, 
24 August 1981. 
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II. PECBLEM DEFINITION 



A. 



E. 



C, 



You are going t 
faniiiar Naval 
typical attack 
Fig. 3. 

The class will 
tvc non ter s in 
members on the 
Each team will 
survivabali ty o 
ario, as follow 

1. Each team wi 
bridge accor 
Section IV. 

2. Each team w 
emplacements 
against air 
the order of 
locations a 

3. Each team w 
team in the 
group will 
That is; EE 
BLUE teams 
path will go 



o conduct a sur’/iv ability assessnen-i; of a 
aircraft, shown in Fxgs. 1 and 2, on a 
mission to destroy the bridge shown in 

be divided into groups of four (4), with 
each group on the 3LUE team and tvc 
EED team. 

use POO 1 and 3ICE II to determine the 
f the aircraft on tae class problem scen- 

s : 

11 generate a flight a flight path to the 
ding to the rules of the scenario given in 
Keep this path a secret. 

ill also select the locations of six AAA 
and one SAN emplacement that will defend 
attack. Locate the weapons according to 
battle given in Section IV. Keep these 
secret also. 

ill conduct an attack against the other 
following fashion; The two teams in each 
conduct a trade of offensive data files. 
D teams flight path will go up against the 
defensive positions and BLUE teams flight 
up aginst RED teams defensive positions. 
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Ill, SCSIJARIC DESCRIPTION 



A. This scenario is purely for instructional purposes ar.l is 
not based on any actual or planned combat attach situ- 
ation, The target site, order of battle, and flight path 
and weapon delivery parameter limits have been chosen 
only to provide guidelines for the class problem. As mucn 
realism has been introduced for the players as possihio 
while retaining an unclassified scenario. 

b. Your target is the bridge shown in Fig. 3 located at : 

X -- 14,000 mtrs 

Y 7, 22 0 mtrs 

Z 20 mtrs 

Heavy military supply traffic has been reported in this 
area. Your mission is to destroy this vital supply link. 

C. The following order of battle has been gathered from 
intelligence reports of the target area: 

SAH - one site in the vicinity of the target 

AAA - (2) type 1 mode 1 

(2) type 2 mode 1 

(1) type 3 mode 3 

(1) type 3 mode 4 

(1) type 5 mode 3 

**N0TZ** Gun types and their relationship to AAA and the 
SAM type will be discussed in class. 

D. The SAM threat reguires that the inbound approach to the 
target be made from the west at low level. A pop-up 
maneuver is required to visually identify the target 
followed by a dive bombing run to weapon release. The 
aircraft ordnance consists of MK32 500-pound Snakeeye 
bombs. Egress must be made either to the north or south, 
depending upon individual strategy. 
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E. The following list of scenario limitations to be Jisad in 
the development of your strategy: 

1. Aircraft speed limitations 

a. minima flj (stall) ?Q a/s (17 5 knots) 

b. maximum, with bombs 260 m/s (505 knots) 

c. maximum, bombs released — 310 m/s (603 knots) 

2. Aircraft altitude limitations 

a. prior to pop-up 

1) . max 457 atrs 

2) . min 60 mtrs 

b. after pop-up 

1) . max -- 2050 mtrs 

2) . min 60 mtrs 

3. Maneuvering -- will be limited by: 

a. thrust 

b. speed brake size 

c. aircraft "g" loading — 

the shorter the leg distance 
the greater the restriction on: 

1) . amount of turn OR 

2) . airspeed/altitude changes 

**N0TE** Remember the following rule of tnumb — The greater 
a change in altitude the closer together minimum and 
maximum allowable velocities get. 

4. Pop-up maneuver 

a. max allow dist (from tgt) to pop-up — 6000 mtr 

b. minimum acceptable pop-up altitude 1000 mtr 

5. Ordnance delivery 

a. boresight dive/glide only type acceptable 

b. dive limitations 

1) must last — 2. 33 sec (606 mtrs at 260 knots) 

2) heading must be within 5 degrees 

**N0TE** The closer the attack 

is pressed to the target, 
the more precisely placed 
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the comb release point mast be. 

c. bomb release ranges 

1) max allowable from tct — 1000 rates 

2) iiii n allowable from tge ~ — 100 m trs 

d. bomb release altitude limitations 

1) max allowable -- 2000 mtrs 

2) min allowable 100 mtrs 

F. Weapons emplacements 

1. order of emplacement fixed by program and goes 

(2) type 1 mode 1 

(2) type 2 mode 1 

(1) type 3 mode 3 

(1) type 3 mode 4 

a seventh type 5 mode 3 battery 

is always fixed at location 

X=12,800 mtr/Y = 7,500 mtr (near bridge) 

2. neither of the type 3 batteries may be placed closer 
than 3000 mtrs from bridge. 

3* (1) type 5 SAM battery may be put anywhere 

east of the 6000 mtr X location 

' G. Locate the AAA 5 SAH batteries (constrained by the above 
conditions) to defend the bridge. 

H. Develop a flight path originating at an entry point any 
where near (but not ’on’) the western boundary, attack 
the bridge and exit the map anywhere near (but net ’on’) 
the northern cr southern boundaries. 

I. May the force be with you. 
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IV 



PRCCEDORES FOR OPERATING IBNPIP 



A. In gross terms, the foil 

1. a computer session wi 

2. submission of your 
determine your succes 

3. mahing a hard copy 
ISK613 terminal 

B. The following equipment 
consisting of: 

1. an IB II 3 27 7 alpha-n 

2. a Tektronix IEK618 

3. an IBN cursor cont 
Hany will be familiar v 
the ’DISSPLA" programs, 
be supplied to enable 
graphics program. 

C. Preflight: 

1. ensure graphics termi 

2. joystick set up — en 
blue rocker switches 

3. the 3277 terminal sho 
— if not — do so no 
intensity to your sat 

D. Program execution 

Refer to Appendix A to 
and generate a flight path 
for gun/missle positioning, 
entered commands or respons 
The following notes 
procedure. Read the Appendi 



owing will ta 


ke place: 


th Ibmpip 
data to (2) 


batch programs 


s 




of your map 


from the Tektro 


is required: 


a graphics stat 



umeric terminal 
graphics screen 
rol joystick 

ith the above from working with 
Additional information will now 
utilization for this interactive 



nal switched on 

sure all three (3) 

are intne (NOH.NAL) position 

uld always be ’power on' 

w and set screen 

isf action 



link up to Aero Disk, run I3NPI? 
. Appendix B shows the sequence 
The black arrow heads are user 

es. 

amplify certain aspects of the 
ces and refer to these notes. 



GUNS: 0=DISK FILE; 1=IERMINAL; 2=PRESEI 
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Do not choose DISK FILE until you have created one by 
utilizing TZP.dINAL to input some gun/missle locations. Ins 
locations entered at TEFIilNAL will on your disk as lUK IOC 
A1 . 

AIRCRAFT MILESTONE INPUT: 0=DISK 1=TERaiNAL 

For the sane reason as above do not choose 
you have created a file by utilizing TERdlllAL. 
path will be written on your disk as ?T3 LGC A1. 

ERROR CHECKINS: 0=NO CHECKING 1=CHECK FOE ERRORS 

Recommend only using error caecking when entering 
aircraft flight path at terminal. It will erroneously acti- 
vate on good data points being read in from the data file 
you will create. 

FLIGHT & GAME PARAMETERS 1= DEFAULT 2=U3Efi INPUT 
For class competition# select 1. 

I 

VILLAGE DRAWN 0=NOT DFAWN 1=DEAWN 
User preference. 



DISK until 
lour flight 



ENTER AIRCRAFT MILESTCNES 

Look at bottom right hand corner of the IBM screen. You 
will see MORE... This is a prompt for you to hit CLEAR key. 
When you do, 

1. The border of the map on the graphics screen will 
flash and the red light on joystick control will illu- 
minate. 

2. You may or may not see cross nairs on your graphics 
screen. Move the joystick around and try to find it. 
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3. If the cross hair is to faint, turn CLOCK^ilSE th^i 

WRITE THROUGH INTENSITY Knob under the graphic..; 

screen. Not too nucn. ... 

4. Ir rht cross nair is too intense it will wipic a 

band across cap messing it up. Turn COUNTZP.CIOCKNISE 
the WRITE THROUGH INTENSITY knob, until it stops. 

5. The cross hair may drift slowly without your moving 

the joystick. Two little slider switches, under and 

to the right of the joystick are used to null out this 
drift. Hove the obvious one until unwanted action 
stops. 

6. To enter a point: Manipulate the joystick until the 
cross hairs are somewhere near tne western border. The 
number keys on top of the keyboard are the ones used 
to enter a data point. Press any key greater than 4. A 
dot will appear and then the border around the 
altimeter/airspeed bar will flash, prompting you to 
move tne crosshair over there. Do so. 

The vertical cross hair is to re set on your desired 
airspeed (as read from the tick marks on the bottom), slow 
on the left, fast on the right. Altitude is determined by 
the horizontal cross hair. When satisfied, press a number 
key greater than 4. A dot will appear and the border will 
flash (if all goes well) prompting you to return to do the 
next point. 

If all does not go well, the skinny rectangle to the 
right of the graphics screen flashes and you will get an 
error message. A list of all possible error messages is now 
provided. Read them and the suggested user responses. 



:(e :jc:4c :}c AIRCRAFT Jje Jjt ^ 4c :4c s}c :4c Is 4c ^ s}c * 



MAXIMUM EHAKING EXCEEDED 

The aircraft unable to slow down to chosen speed 
increase speed. 
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«AX G EXCEEDED 



Pare — usually aircraft is not able to handle G-loai of 
turn — try slowing down a little. 

MAX THRUST EXCEEDED 

The airspeed chosen is too fast — slow down a little. 
**MOTE** When saneuvering near the target, the distance 
between MAX 5EAKIXG and MAX IKPUSI can get to be small. If 
unable to find an airspeed between them, next try changing 
altitude. If still unable to fit between the limiters, you 
will have to back up and enter a new X-Y location and try 
again . 

ALT ICO LOW 

Self explanatory. 

ALT ICO HIGH 

Self explanatory 



POP- UP TCO LOW 

Self explanatory. 

BMB DROP LOW 

Self explanatory. 

BMB DROP HI 

Self explanatory. 

STALL 

Rare -- try increasing airspeed. 
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HDG<5 DEG TO TGT 



Must reenter the X-I point. Do a better job cf 
point on borob aim lice. 

FINAL EUN<2.33 SEC 

Must reenter the X-Y point — put it further down the 
ainline toward the target. 

NO HCRIZCNTAL MOTION 

Rare You didn't rove far enough away fros last entered 
point. Reenter a new X-Y point. 



MAX LIFT EXCEED 










Extremely rare. 


Manuever too 


severe. 


Try 


adjusting 


speed downward or 
entered. 


moving altitude 


closer 


to the 


last one 



GUNS ^ ♦ 

100 CLOSE TO IGT 

Type 3 guns not far enough out from bridge. -- Reenter. 

MISSLE »*»*»♦♦**♦ ^ ♦♦*♦♦ * 

X COORDINATE LESS THAN 6000' 

Missle is too close to the western border. Move to 
east of 6000 mtr line. 

If you make an error and do not throw away the X-Y 
point/ the altimeter border will flash and you may make you 
airspeed/altitude corrections. If you choose to correct the 
X-Y point/ the map border will flash and you must then go 
over and reenter the point/ see the altimeter flash and 
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return to it to reenter the associated aititude/airspeed 
coabination. 



If all goes well. 



n c 



erro] 



IS 



nade and the 



proceeds 


. Once the second p 


oint 


is enrered, the 


connect- 


the-dots. Observe F 


ig 4. 




As 


you progress, your 


flight path may rese 


At 


this time note tne 


bold 


rings on the ma 


1. 


Ihe outer ring is 


used 


for aircraft p 




inside the ring, 


you 


may at any ti 




pop-up. 






2. 


Ihe inner ring 


is used for placing 



;p. Once 
ccKcence 



batteries and is explained elsewhere. 

Observe Fig, 6. In the artificial case presented here, 
the user knows where the guns are and is aaneuvering around 
them to a thin spot in the defense. Up to point 11, the 
aircraft is maintained at a low altitude. Note where the 
dots are on the altimeter ber. 

Observe Fig. 7. Ihe user has popped up between points 12 
and 13. Observe the lone altitude dot at about 1250 mtrs 
altitude. The user is ready to take aim as he is about to 
input point 13. Number 1 key is the aim button. Press it for 
both the X-Y point and the associated altitude. A dotted 
line will appear. This is the line you must be on to release 
the bombs. 

Observe Fig. 8. Point 14 is entered using Number 2 key. 
Bombs Away. Press the Number 2 key for both the X-Y point 
and the associated altitude. Note the 3 dots at about 800 
mtrs — it took 3 trys to get the airspeed right. It is now 
time to separt Dodge City. Point 15 is entered using Number 
4 key. Again , as always, do this for both the X-Y point and 
the associated altitude. Normal termination of the program 
occurs. 

Summary of the special keys: 

1=take aim 
2=bcmb release 
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3=atnormal teraiination 
4=noraal termination 



Abnormal termination is ased to go bach to a "orr.. 
on the rligh path and start over- 

**NOIE** The significance of these four (4) hejs only 
applies to aircraft niilestone entry. Any nuabered hey is 
appropriate for entering gun/aissle locations. 

ARE YCU FINISHED wIIH THIS FLIGHT PATH; 0=NO 1=YES 
Answer with 1/ the 0 isn't working at present. 

OUTPUT FILE: 0=NO OUTPUT; 1=OUT?UT 

In order to submit your data to either ?001 or MICE you 
must have generated both a guns/missle AND a flight path 
file. Until both are done or when experimenting without a 
desire for survival statistics, select 0=MO OUTPUT and 
I5MPIP will terminate. 



EXTENDED OUTPUT: 0 = NCT WANT ED; 1 = EXTENDED OUTPUT 

Select 0; there is a bug in selection 1 which does not 
affect the operation of the game. 

MISSIE TYPE BETWEEN 1 AND 7 

Select 5 only; the performance data on -the other missies 
are not contained in this instructional package. 

ENTER YOUR USER ID NUMBER; — WITHOUT THE "P" 

The questions ycu are now answering are for the auto- 
matic generation of JCL (Job Control Language) cards that 
will be inserted into the P001 DATA A1 and/or the MICE DATA 
A1 files for submission to batch proccessing. 
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At 



refer t 



3 



this 
entering gun 



time 
em D lacemsn ts. 



o Appendix 



for procedures on 



** CHOICE 1 NEGATES 
The advantage of 
of not going over t 
each time a battery 
again, prompting tne 
selected, there is n 
emplaced. Consult 
wishes. 



GCIMG TO AlIIHETSa 
choice 1 to the user 



o the a 


Iti 


tude 


bar 


fo 


is empl 


ace 


3, 


the 


map 


input 


of 


the n 


ex c 


bat 


c progr 


aa 


li mit 


on 


how 


with t 


he 


in St 


rue 


tor 



is the convenience 
r the guns/missle; 

border will flash 
tery. Should 2 be 
high a gun may be 
to determine his 



ERROR CHECKING: 0=NO CHECKI 

You have ail ready bee 
gun/missle errors. It is r 
not selected, for the 
mentioned, error checking 
being read in from a data f 
are entered, the user mus 
path at the terminal, or 
order for program to progre 



NG, 1=CH£CKING 

one acquainted with the possible 
ecomnended that error checking be 
following reason. As earlier 
will trigger on flight path data 
ile. At present, once guns/missle 
t still either generate a flight 
read one in from a data file in 
ss normally. 



ENTER GON LCCAIICNS 

Look at the bottom right hand corner of the IBM screen. 
You will see MORE... You are being prompted to hit the CLEAR 
key. At this time, the map border will flash and the cross 
hairs will appear again. 

At this time look sequentially at Figs. 
9^ 1 0 , 11 , 12, 13, 1 4 ,& 1 5 . The fixed, type 5 battery is all ready 
in place. In each succeeding frame, another battery is 
emplaced. 
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j 



is the 


3000 


weapons 


mus L 



Now note the inner bold rinj. This 
limit, outside of which your type 3 

enplaced. Note Figs. and 15. 

r- \ ^ J- V, -X ~ t. 3 - .r ^ , 4- ^ ^ ^ ^ 

.'< 4l *4. o i A c; jL c. o u w A. '-c i. j. i4. ‘d c; ^ j lA ^ ^ ^ ^ w 

screen will illuminate with the following message: ENT2R 
HISSLE LOCATION along with the now familiar MORE... Again 
hit the CLEAR key and enter the missle location. Observe 
fig. 16 carefully, as the missle symbol is not Large. 
(X=8 ,500,Y=S,500) . 

At this point you will be prompted witn ENTER AIRCRAFT 
MILESTONES. Proceed as discussed under Aircraft. 

E. AT COMPLETION OF SESSION 

When you are all done, and ISilPIP is terminated you 
should have a GUN LCC file and a PT5 LOC file residing an 
your A1 disk. If you are not ready at this time to conduct 
file exchanges with the opposing team you release the 222 3 
disk with the command: 



RSL 222 

then log off or whatever. 

F. HOW TO MAKE A HARE COPY 

To make a hard copy of your map, reach over and hit 
the HARD COPY button on the graphics screen. A loud racket 
will indicate which printer is making the copy. Most of the 



graphics 


screens 




indicate to which 


printer 


they are 


attached. 


You may 




have 


to turn on the 


printer 


as they are 


noisy and 


are freg 


ue 


ntly 


left off until 


needed. 


If you turn 


the printer on, gi 


ve 


it 


30 seconds to 1 


minute to 


warm up or 


copy quality will 




be 


non-existant or 


severely 


degraded. 


Darkness 


of the 


c 


cpy 


is controlled 


by the 


HARD COPY 


INTENSITY 


knob u 


nd 


er 


the graphics 


screen. 


CLOCKWISE 



increases darkness. 

G.PRIOR TO EXCHANGING FILES 
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i 



Exchanging files is the method of attacking or defending 
against the opposong team. If a file is sent to another aser 
and that user has a file by the same name the incoming rile 
Kill overwrite the existing file destroying the existing 
file unless precautions are taken. 

The following is recommended; RED team; rename your pts 
loc file PISR LCC BIDE team rename your pts loc file ?TS3 
IOC 

This can be done inside FLISI in the following manner; 
Place cursor beside PTS LOC and type 

RENAME / PTSR = = 

and hit enter. (The BIUE team, of course, would use PTSB) Mow 
your file is protected. 

(BLUE/EED) team; SEND your (FIS3/PTSR) LOC file to the 
opposition. If the respective teams do not have a SEND EXEC 
file, one may be obtained from the Aero Disk. Link up to the 
disk using the previous instructions. When linked, issue the 
following command, 

SEND ,(you user number) .SEND EXEC. 

Example; SEND 2408p SEND EXEC 

Don't forget to release 222 when done. For instructions 
on how to use SEND, merely type SEND. It will also tell the 
receiver how to load the PTSx LOC file sent to them. To lead 
this SEND EXEC on your disk issue either of the following 
commands ; 

RDR 

DISK LOAD 

Once the files are received, xenama them back to PIS 
LOC. Link to the Aerc Disk using the described procedures- 
Run lEMPIP and select 

0=DISK for guns 0=DISK for aircraft 
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I 



I 



I 



the 

oppo 

te ciui 

your 



with EHnOR CHECKING off. At the completion of 
pool and MICE printouts will report on how 
siticns aircraft did against your defense, 
will (hopefully r.ct gleefully' report to yo: 
flight fared against therr defense. Good Luck 



your ran 
veil the 
The ctiief 
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AP PENDiX B 

DSRI7ATICN OF SQaillCNS USED IN TEXT 
From [Ser. 3], i rstartaiieou s velocity is given as; 

V-' ~ As 

afc 

and instantaneous acceleration is given as: 




If the first aquation is solved for it and substituted 
the second equation, the following results: 



a«rls =. 



If the acceleration is presumed constant over f; 
distances, the above equation may be integrated: 



a) is 

o 



1 v-ir" 



’dU) 






ACC=: (vELC>NX;t:E- VEl£)64Ci:^)/( 



into 



Lnit e 
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f! 



Eetarnin-g tc [Ref. 3 ], for; 



dt. 

if the ecuaiton is recast as; 

d\r= acit 



and the presumption of constant acceleration is made, the 
following integration results; 

Vnew 

^ div- — <3. ^ <^t 

Vqld ® 



_ \y —CL 

MEW OLD 



'^HEW ~ ^OLD oil 



;$t:<c^4c:4t:4c:ic:{c:4c:0e4t :jc:^c:0e 

Substitute this equation into; 



ds 
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1 



( 



I 







- i 



and integrate to get; 




v^Jb 







DElUC = UOLD^C OELTEE UDOT ^ DELTEE 



:Jc:^c:^;ic:#c4c:Cc ^ :^c:^£:icaf:lCt:^c:^c:^c:^: ^:i^:<£:5s^4c^:}E:Oc:Oc:Oc:^c:Oc:#c:#c;Oc4c:is 4c:#:4c:Jc:#c:#c:Cc4c:#c:#:4c:#c:#::ic 

Reaching hack; 

^TEKP t- 

j dv = a j d fc 

Vold 



Vtehp ~ Vou:,+'at 



UTEMP= UCLD +• UOCT^ DELTEE 
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Froa [Eef- 4], for a steady coordinated turn; 

T\JRNRATE (<^e^lset) ~ 1Q<^[ 4txn (ji U) 

■y 

((2^)=bank angle (degrees) 

V =veiocity (knots) TAS 

Convert the turn rate to radians/sec: 

TUR^^R^.TE ('^/s) = 1C>91 4tin(/(:r) ^ ^ 

*V" 36G 

Convert V (knots) to V (meters/sec) ; 

^TURHRATE. - IG^l 4nn 6 ZTT 

(V' 

Solve for angle of bank: 

</ Crl) - a-Wn / TURN RATE. (% 

[ 9.7355 



PWWEW = TURNRAT )<VEL0T/ 9.73SS) 



93 



From [Ref. 5]/ the pressure ratio as a fiiXiCtior of te.^pera- 
tare and altitude, for the lodei atmospnere is; 








o 



aH 

To -I- (aT/JH)H 










-aT/an 



where 



p (na ught) =standar d sea-level atnospheric pressure 

dT/dH =teaipera ture lapse rate in the 

troposp here 

H =geopote ntial altitude (assaned 

equal to geometric or 
tapeline altitude for low altitudes) 

T (naught) =standar d sea-level atmospheric 
tempera ture 

G =acceler ation due to gravity 

(assumed to be constant) 

S =universal gas constant 



The temperature profile for the same model atmosphere is: 

T = To Ot/jh) H 
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1 




■ 



^F? 



olyifi9 tii€ p^rfGCt gds Id w to 90c dbusitv 



f [-(SK^ 

r 



-aT/aw 






' G/R 

-aj/aw 



- I 



dl4 ){To) 

The temperature lapse rate in SI units is: 



ij_ =.-£.S’Kio^ “K/m 

dH 

Gravitational acceleration in SI units is: 




9.8G7 




The universal gas constant is: 



Z 61 - 



k9-“K 



Thus ; 



G/R 

-ai/aH 






and sea-level standard air density is: 



= u^^s■ 
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a??en5I^ £ 

T 'T 'Jf '■7 n T* r* t o ^ rj T‘ vt ^ C’ r? d ’* ’>T C7 ■»?►'**. t> M ''T 
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Figure C. 1 The Map Coordinate System. 
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Figure C.2 The Aerodynamicist *s Coordinate System. 
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from [ Ref . 6 ] 



The following development is taken from [Ref. 6]. 
equation (linear xonentum = appliel forces) for an 
with a constant mass (fuel turn not accounted for) ; 



or on 



rn — mg +- Feu +- Rt 



dt 



a =mass of the airplane 

dt 



(__J)=the acceleration or rhe aircraft in 



the earth-fixed coordinate system 
mg = force applied due to gravity 
I'a = force applied by aerodynamic loading 
Ft = force applied by thrust 



This equation is transform aed from the earth-fixed coordi 
nate system to a coordinate system attached to the aircraft 



miy®. 

dk 



= m 



/ ^ +- (0 X Vd. 

V dt 



( =acceleratio n of the aircraft in the 



dt 



aircraft-fixed coordinate system 



( (j) ) =rota tional velocity of the aircraft- fixed 
coordinate system with respect to the 
earth-fixed coordinate system 
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If th€ afovfe equation is expanded into its orthogonal ccn^.o- 
nents : 




The above is termed the aircraft equations of motion. In the 
aircraft- fixed coordinate system, the components are shown 
in figure C.3 The next three illustrations show the trans- 
formation of earth-fixed linear velocities and accelerations 
to aircraft-fixed linear velocities and accelerations: 
Finite rotational displacements do not act as vectors, hence 
the requirement for the order of the above rotations. This 
is demonstrated in figure C.7 Transformation of earth-fixed 
rotational velocities into aircraft- fixed velocities 
involves the following mapping. 



In terms of unit vectors, (GO) earth-fixed is presented; 





looking at figure C.3, it is seen that; 
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C.3 Components of the Equations of Motion. 
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F 



4 



T 

! 




EAST 





COSCj) JLle 


+ 


sm(^ v^e 




- “sm -Ue 


+ 


Cos Ve 


= 


\ATe 








• 




• 




cos ^ JU.^ 

• 


-H 


sinij) 




- sm (J -Ue 


+ 


cos^ VJ 











Figure C.4 First Rotation. 
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^3 



= COS© - sinO 
= ^ 

= sm© ijl^ cos©vj^ 



^3 

VTj 



= COS © JLL^ - Sin © 

= - 

= smO ilg, + cos© W£ 



Figure C.5 Second Rotation. 



H0R12OM 
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i 

I 



I 



J 



r 




JULcl 


= -II3 

t 








= COS ^ 


-t- sm 






=: - sm ^ V3 


+ cos 


j2( 


JAo^ 


— A3 




♦ 


h. 


• 

= COS^V5 


+ b\n j 






• 

= -sin^ V3 


+■ (!jOS j 


i WJ 



Figure C.6 Third Rotation. 
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I 




Figure 



furthermore ; 







and finally 
K 

J3 - 




.,7 Finite Rotations Do Not Act As Vectors. 



looking at C. 8 , 




A 

¥ cos <f 



looking at the same figure, 

COS^ Jo_ ““ ko. 
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Figure C.8 Transformation of ((ji)- 



no 



Subs tituting into ( (jj) ) in terms of the aircraft direction 
vectors; 



03 = 



-smeLo.+ c.os.©(i!n(zfja_-i-cos 
( - sin^ko.) © 



+- 



and this must eguai 

“ = Plo. + <SjV 

Therefore, solving fcr components, 

p - ^ -Sim (^)c^ 

0 . - -1- cosfe) sim (0') (|) 

R - — sm (( 2 $') ^ 4“ <105 fe) cos Lfl) y 



1 1 1 



* 



1 

I 

n 
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APPENDIX D 

C0NSCIIDAT2D COIiaON LISTING 



CCMJION/ABC 1/HX 
WO 
KH 
RG 



( 1000 ) 

1000 ) 

1000 ) 

(1000 



WY 

WV 

W ? 

KT 



1000 

1000 

1000 

000 ) 




/ 

/ 



CC.'iMCN/ABC2/XNIW, D2LX ,XTENP,XOLD, 
YNEW,DELY , YTZXP/YOLD, 
ZN£W,D£L2 , ZTE ilP , ZOLO 



COMMON/A3C3/VE1CN, VELOT, VELOO,N, 
UNEW,UTEI1P,OOLD, 
VNEW,VTSMP,VOLD, 

W NEW, WTEaP, WOLD 



CCMMON/A3C4/AG 1,AH1, All, AJ1 ,AJ2 
CC*YMCN/A3D 1/ A A 1 , A3 1 , A C 1 

C0i'i.i0N/A3D2/VSIALL,Vii AX, VMAX1 , VOAX2, DELTEE, DELT7, DELTZ 

I 

CCMMON/A3D3/PSIDOT,THEDOT,p:-iIDOI 

CCMM0N/A3D4/PSINEW,THENEW,PHINEH, 

♦ PSIOLD,THEOLD, PHIOLD 

COMaON/A3F1/01,V1,W1,02,V2,H2,U3,V3,W3 

CCMMON/ABF2/UD 1 , V L 1 , W D 1 , UD2 , VD2 , W D2 , UD3 ,VD3, WD3 

CO««CN/A3F3/UAC,VAC,W AC, ODOTAC, VDOTAC, W DOIAC ,P, Q , E 

CCMMCN/LOC/X1 , Y1,Z1,V 1,LTR,LTE2 

COMMON/SN/ IBAOD 

COMMON/MN1/aiNX,MAXX, MIN Y, SAXY, iINXI ,MAXX1 , MINX2, MAXX2 
COMMCN/NAM/INAM1 (2) ,I NAM2{2) , IUNR,IANE, IDES! 
CCMH0N/0?T/IG0N,IPNCH ,IEXT,ISAM,IMP, KER,IMP2 
COMMON/PAR2/XGUN (7) , YGON (7) ,ZGUN (7) , XSA M, YS AM , ZS AM, GE ( 7) 



112 



CO M >iO N/? A R a/ A ? F M A X 
* 3HRHIN 



HTI1IH,HTaAX, POPMIN 
BREilAX, RADTODEG,:^! 



BAALT, BRKIM , 
TOFT 



C 0 Mii 0 N/T A P./T A R G X , T AR G Y 



APPENDIX E 



EXECS USED TO DRIVE FORTP.-\N PROGRAMS 



C IBaPIPI EXEC A1 

C THE FOLLOWING EXEC DP.IVES IBSPIP1 -- D.A..*5. 17KAH84 - - 

(;*«•»»«*««*•*»«*»•««*«•«* **»«•««**««« •«*•««««» 

ST3ACE EES. 



EXEC 



GHAF77 

09 DISK 



PICTDH DATA B1 fRECFS ? LEECL 80 



FILZDEF 


10 


DISK 


GDN 


LCC A1 


{ 


HECFfl F 


LRZCL 80 




FILEDEF 


11 


DISK 


PTS 


LCC A1 




RECFM F 


LEECL 80 




FILEDEF 


16 


DISK 


PAR 


SiV A1 


( 


EECF.1 F 


LEECL 80 




FILEDEF 


18 


DISK 


pool 


DATA 


AT 


(HECFa 


F LEECL 


80 


FILEDEF 


17 


DIS K 


MICE 


EATA 


A1 


(ascFa 


F LEECL 


80 


FILEDEF 


19 


DISK 


TE ilP 


DATA 


A1 


(SECFa 


F LBECL 


80 



LOAD IBBPIP1 (STAST 



^ ««»»*«»««« *«« »«*«««»«**«»»•»»«»•••««»»»«*••«*»•«*«««•»«*««•«**«»*««•« 

c IBMPIP2 EXEC A1 

C THE FOLLOWING EXEC WAS OSED TO DEIVS I3MPIP2 — D.A.H. 17HAB34 — 



STBACE EBB 
EXEC GRAF77 



FILEDEF 09 DISK PICTOE DATA 

FILEDEF 10 DISK GDN LCC A1 

FILEDEF 11 DISK PTS ICC A1 

FILEDEF 16 DISK PAR SA7 A1 

FILEDEF 18 DISK P001 EATA A 
FILEDEF 17 DISK fllCE DATA A1 
LOAD IBBPIP2 (STABT 



A1 fBECFa F L2ECL 30 
BECFa F 



EECFH F 
RECFM F 
“CF.a 
a 



laECFa 

(HECFa 



LEECL 80 
LEECL 130 BLOCK 130 
LEECL 80 
F LBECL 80 
F LBECL 80 



C* •>*•••**•«*•»«*••*••»*«**•****••«•*•■•***••••***•«»»**•••* *****•»•»• 

C GRAF77 EXEC A1 

C THE FOILOKISG EXEC LINKS THE OSEE TO THE GRAPHICS laPLEHENTATION 
C — D.A.a. 17aAR84 — 

c*** •••«•«*•»• »•*»*»**«»*»»*•««»»••«•«*«»*•**»*•*»*•*»»**«••»»•«*•«•*« 

STBACE EBB 

CP LINK GRAF77 191 199 HR 

ACC 199 G 

GLOBAL TITLIB aOD2EEH F0RT30D2 GRAFLIB CBSLXB NONiaSL 
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APPENDIX F 



CLEANED UP JOHNS VERSION IBMPIP 



C naiM FBOG^Afl 04/CCT/83 VERSION 

C CCNTtCLS THE EXECUTION Cr THE ENTIRE PRCGRA^'x. 

C TEE C4/CCT VERSION IS E5SSNTIALL'^ ERIC JOHNS* 

C VERSION -TTH SOME USER ?RI EN CLI N ESS FEATURES 

C ACCEl. the AIRCRAFT FLIGHTPATH GENERATOR IS 

C UNCHANGED FRCil THE JOHNS* VERSION AND IS KNOWN 

C TO rtCSK AS THIS IS THE VERSION IN USE 3Y PRO:*. 

C BALL'S SUaViVASI LITY CLASS- -- 16HARd4 -- 

COMMON /MN1/ MIN X ,MA XX, M I NT , M A XY , MI N X 1 , MAX XI ,MIN X2,MAXX2 
COMMON /LCC/ XI , Y1 ,21,Y1 , ITR, LTR2 
COMMON /MN/ IcAUC 

COMMON /PAR/ X (200) , Y (2 00) , Z (200) ,HD G (2 00 ) , C A ( 20 0 ) , R A (200) , 

1 ) 

COMMON /PARI/ XDGI |2C0) ,YDOT (200) ,ZDCT (200) , ilNUM,MBR 
COMMON /PAR2/ T ( 2G0 ) ,XGJ N (7 ) , YGUN (7) , ZG UN ( 7) , XSA M , i' SAM , ZS AM 
COMMON /OPT/ IGUN .IP..CH , liXT. ISAM, IMP, X£a,IMPZ 
COMMON /NAM/ I N AM 1 ( 2) , IN AM2 ( 2 ) , lUNR , I AN R , IDE ST 
MBH=0 
MNUM=0 
I (1) ^0. 

CALL BEGIN 
CALL SCENE (0,0) 

REWIND 10 



VEL (2C0 
,GR (7) 



C 



ENGAGEMENT CIP.CI 



C DRAW THE PIXEL GUN SITE 

C 

CALL GUNLCC ( XGU N (7) , YGUN (7) , GH (7) ) 
IF (IGUN.NS. 1) GO TO 90 



C 

C IGUN-=1^=> READ USER DZFIl.EABLE GCi 

CALL EKHflK (16) 

DC 50 1= 1,5 
10 IERH=0 

IE (IMPZ-NE- 1) GO TO 20 
CALL XYPI 
ZGUN (I) =20. 

GO TO 3 0 
20 CALL XYPT 

CALL ZVPT 
ZGUN (I) =Z 1 
30 XGUN(I)=X1 

YGUN (I) =Y1 

C IF GUN TYPE 3, CHX FO? 3 XM SEPARATION FM BRIDGE 

IF (I. GE.5) CALL GUNCHK (X1,Y1,IERR) 

I? (lERH.EQ.O) GO TO 40 
CALL EBRMK (lERH) 

GO ro 10 

C DRAW GUN SITE AND ENGAGEMENT CIRCLE 

40 CALL GONLOC i XGON (I) ,YGU N (I ) , GF (I) ) 

50 WRITE (10,350) X GUN ( I) , Y G UN ( t ) , ZGUN ( I) 

C HEAD USER DEFINEAELE SAM SITE FM TERMINAL 

6 ^ * ^ 



SITES 5EOM TERMINAL 



CALL ERRMK (14) 

IF (IMPZ.NE.1) GO TO 70 
CALL XYPT 
2£AM=2 0. 

GO TO 80 
70 CALL XYPT 

CALL ZVPT 
ZSAM-Z 1 
80 XSAM=X1 

YSAM=Y1 ^ 

C^E^FY SAM SITE AT LEAST 6KM FM WESTERN 



ECUNCARY 



CALL SAMCHK (XI ,IERH) 

IF (lERR.NE. 0) GO TO 60 
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C DBAH SAtl SITE 

C 

CALL GDNLCC ( XS , YS A3, 1 5 0. ) 

'4BIT2 (10,350) XSA3,YS13,ZSA3 
GO TO 13C 

C 

C IG0S=2===> READ G D N SITES ?R03 DATA FILE 

90 IE riGaN.NS.O) GO TO 110 
DC 100 1=1,6 

100 BEAD ( 1 0,350)' XGUN(I),YGUN(I) ,2GUN(I) 

READ ( 10,350) IS A3 , i ^A3 , ESA 3 

C DBAW GUa SITES ASt HNGAC-EZEI.’T CIRCLES 

C 

110 DC 120 1=1,6 

120 CALL GDNLCC ( XGU N (I)^ , YG 0 !I (I ) , GE (I) ) 

CALL GnNLCC ( XS A3 , YS AB, 1 5 0. ) 

130 CONTINUE 

C THIS SECTION ACCEfTS THE FLIGHT 3IIEST0NES 

FTFAC= 3. 28034 
DGFAC=57. 29578 
CALL EHBHK (15) 

REWIND 1 1 
140 aN03=aND3+1 

C 

C READ aiLESTONES FSC3 THE DISK 

150 IF (I3P.SE.0) GO TC 160 

BEAD ( 1 1,360 X (3SUH) ,Y (3KU3) ,Z(3NU3) ,VEL (SNUK) ,LTH 

IP (XjaNUa) . LE.O. 1) GO TO 150 

IF (LTR-EQ.I) ia? = 1 

LT52=LTS 

GO TO 180 

C READ aiLESTONES FHCa THE TE33INAL 

160 CALL XYPT 
X (3NU3) =X1 
Y (HNUa) =Y1 
170. CALL IVPT. 
z(aNoa)=zi 
7EL(aNUa)=V1 

IF (IHP.iQ^) GC TO 1W 

C COaPUTS FLIGHT PAHA3ETEHS AND CHECK FOR ERECSS OE USER C033ANDS 

180 IF (3N Ua.EQ. 1 . AND . (LIE. EC.83. CB. LTR2 . EC.33)) STOP 
IP (aNUa.EO. 1) GO TO 140 
IEHH=0 

CALL 7ALSET (IER3) 

IF ( ( (LTH.EQ. 82) . C2. (LTR2-EQ. 82) ) .AN D. (I3P .NE.O) ) GO TO 200 
IF ((LTB-EQ.66) .OE. (1TH2. EQ.66)) 3B8=HNUa 
IF ( (LTB.EO. 8 3) .OR. (LTS2. £Q. 8 3) j GO TO 230 
IF (lEHR.EQ.O) CAIL EBRCHK (IEEE) 

IP ( (IERE=K5R. £Q. 0) . AND. (IE3R .NE. 12) ) GO TO 190 
CALL SBSaK (lEBE) 

BBITS (6,39(5) 

WHITE J6,400) 

READ (5,*) rCCB 

CALL FSTC3S ('CLRSCEN ') 

IF (ICOR.NE.1) GO TO 190 
WHITE (6,410) 

HEAD (5, *) IANS 

CALL FSTCaS (’CLRSCEN ') 

IF (lANS.NE. 1) GO TO 160 
GO TO 17C 

C HILSSTONE ACCEPTED, RESTART THE SECUENCE 
190 CALL PTHPLT 

IF (LTR .EQ. 65 .CH. LTR2 . EQ . 65) CALL AI3PT (aNUH) 

GO TO 140 
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C THIS SECTION 3ZSETS Tb£ lATA 

C 

200 CAIL SCENE ( 1 , ICT) 

REWIND 19 

If (aSR .GT. ICT) .^BR=0 

C 

C CC.'IPLETE RESTART 



IP (ICT .GT- 1) GO TO 210 

ilNUJl=0 

GC TO 110 

C 

C DBAW SETAINEE JIILESICXES 

210 IE ((ICT .GE, .'INOil) .AND. (:iN0:i .GE. 3)) ICT = ?lNU:i-1 
DO 220 .'!NUM = 2,ICT 
220 CALL PTHFLX 
MNOa='1 NUfl-l 
GC TO 110 



C THIS SECTION XERniNATJS THE PROGRAM 

C 

230 ELANK=0. 

CALL PIHFLT 
LAST=IMP 

CALL SLfIN (LAST) 

C COMPUTE FLIGHT PARAMETESS FOR FIN^l LEG 

0X = X (M NON) -X (MNUM-1) 

DY = Y (MNOK) -Y (NNUM-1) 



240 



250 






D2 = Z (MNUE)i -2 (NNUN-1 ) 

HA (MNUM) =0. 

CA (MNOO) =ATAN2 (C2 ,SQRT(DX**2 + DY^»2)) 
IF ((DX -EO. 0.) .OR. ‘‘ 

HDG (MNUK) =nTAN2 (JY,DX) 

GC 10 25C 



(DY 



Q. 0.)) GO TO 240 



IP j 


[i 


;DX .HQ. 0.) .ANL. (DY .GT. 0.] 


1) HDGi 


[.-.NUK) =1 . 57079 


IF j 


1 


DX .EO. C.) .AND. (DY -LT. 0.! 


n HDGI 


aSOS) =-1.57079 


IF 1 


; ( 


;DY .EQ. 0.) .AND. (DX .LT. 0. 


)) hdgi 


a N u a ) = 3 . 14 159 


IP i 


1 


DY .Eg. 0.) .AND. (DX .GT. 0. 


1) HDGI 


ailuti) = 0 - 


1 XD01 




\MN0M)=VSL (MNUM) ♦COi (HDG (f!.NUM) ' 


) ♦ COS (CA (MNUM) ) 


YDCT ( 


M NUM =V EL (MNOM) ♦SIN ( HDG (MNUM ] 


1 *COS (CA (MNUM) ) 


2DOTI 


MNUM =VEL MNUM) ♦£! N ( CA (MAUM) 







IF NEW WEAPON OR MILESTONE COORDINATES 



C CREATES NEW '• PTS LOC 
C HAVE SEEN INPUT 

IF ((IMP .EQ. C).AND.(IGON .NE. 1)) GO TO 230 

BEWXND 11 

IGUN=1 

WHITE (1 1 ,360) BLANK ,3L AN K, BL ANK , 3L A NK , 2LA NK 
DO 260 I=1,MNU« 

LTH=0 



260 



IF 
If 
WRITE 
WRITS 
WHITS 
1 LANK 



I ,E 
I . E 
1 



MBH) LTH=66 
MNUM) LTH=LAST 

1 ( 1 ) ,Y(I) ,2(1) ,VEL(I) ,LT3 



,360 
1 l'370 
1 1,380 



V£L(1),M3H,3LANK, 3LA N K , IGO N , IGU N, 3LANK, 3LANK, IGON ,3 

If (IGON .EQ. 0) GO TO 280 
DO 270 1=1, b 

WHITE (1 1 ,3 60) XGCN (I) / YGUN (I) ,2G0N ( I) 

WHITE (11.360) XSAlM, ISAM ,2S AM 



270 
C— - 

C CCNVEHT ANGLES FROM RADIANS TO DEGRESS 
280 DC 290 I=1,MNUM 



CA (I) =CA 
SA (I) = BA (I) *D( 



FAC 
DGFAC 
HDG (I) =HCG'(I) ♦DGFAC 



290 
C 

C WHITE THE JCL CARDS 

C 

IF (IPNCH.lt. 1) STOP 
IF (I?NCH.£Q,2) GC TC 300 
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11 

'111 



1 

! 



I 

! 




«aiT2 (6 ,420) 

WRITS (6,430 
SHITS {6,440} 

WRITS j6,450) 

READ (5,530) I Ji A Ml ( 1 ) .1 N A 31 (2 ) 

CALL PHfC3S (•CLaSCHfi •) 

300 I? (I?NCH,Sg,1) SC TC 310 
WRITS (6,460) 

S HITS (6 , 4 JO 5 
WRITE (6 ,440) 

WRITE (6,450) 

HEAD (5,530) I N Ad2 ( 1 ) ,I N A 32 (2 ) 

CALL FSTC3S (•CL3SC5N ») 

310 WRITE (6,470) 

BEAD (5,^) ItJNR 

CALL F5TC3S {’CLHSCFil *) 

WRITS (6,460) 

BEAD (5, *) lANR 

CALL FRTC3S ('CLHSCBN ') 

C CHOOSE DESTINATION FO? OUTPUT; PRINTER OB RrAEER FILE 

HEITE (6 ,490) 

320 WHITE (6,500) 

READ (5,^) IDEST 

IF ( (lEtST. H E. 1) • AND, (IDEST. NE.2) ) GO TO 320 
CALL FRTC3S (*CLhSCFN •) 

C PRESET LOADS 3ICS/9001 DATA FILESCNTO USERS A1 DISK 
CALL PRESET 

Q 

C DUKEY INPUT ROUTINE IC LET USER KNCW WHERE S/HE IS IN THE ?G3 

WRITS (6,510) 

READ (5,n IGC 

CALL FHTC3S (’CLuSCRN *) 

C FOaCS CALL TC CHS TO SUB3IT DATA fILSS TO BATCH PROCESSING ?G3 
IF (IPNCH.EQ.2) GO TC 330 

CALL FRTC3S (’EIEC »,*SU53IT *,*9001 »,*DATA •) 

IF (IPNCH.ZQ.l) GO TC 340 

330 CALL FHTC3S (»OHC *,*SU33IT *,*3ICE »,»DATA *) 

340 CONTINUE 

C 

C DUC3Y INPUT ROUTINE TC LET USER KNCW ?G3 TER3INATION HAS BEEN REACHED 

WfilTE (6,520) 

READ (b,<) IGO 
STOP 

350 FOR3AT (3F10.2) 

360 FCH3AT 4F10.0,I3) 

370 F023AT (6H99999.) 

300 FORMAT ( F 10 . 0 , 12 , 8 1 1 , FI 0 . 0) 

390 F0R3AT (3fl ) 

400 FORMAT 54H DC YOU WANT TO FIX THE E ERO R : 0=NO , US E THE ?OINT;l=YES) 
410 FORMAT (4CH DC YOU WANT TC RETAIN X-Y FT : 1 = Y ES ; 2 = NO ) 

420 FORMAT (40H TO SUBMIT POOl TO BATCH YOU MUST CREATE) 

430 FORMAT (31H A CC3 CONTROL LANGUAGE "CARD”.) 

440 FORMAT 51H ENTER A NAME — IT MAY CONTAIN UP TO 3 CHARACTERS;) 

450 FCHMAT (25H NOT INSERT BLANKS*’*') 

460 FORMAT (44H TO SUBMIT **MICE** TO BATCH YOU MUST CREATE) 

470 FORMAT (46H ENTER YOUR USER ID NUMBER — WITHOUT THE "?'*•) 

480 FCHMAT (40H ENTER YOUR ACCT NUSflEE -- PROVIDED BY THE PROF,) 

490 FORMAT (41H CHCOSE THE DESTINATION FOR YOUR OUTPUT; ) 

500 FORMAT (30H 1=PHINTER; 2=YOUR READER FILE) 

510 FORMAT (46H ENTER ANY **NUM3EB** TO SUBMIT YOUR POO 1 /?! ICE , 1 4 H DATA 

1 FILE(S) ,) 

520 FORMAT (40H ENTER ANY ♦♦NUMBER** TO TERMINATE T2PI?) 

530 FORMAT (2A4) 

END 



118 



C SU3HOOTi:iE BEGIN 

C THIS SUCROUTLSE INITIALIZES THE GRAIHICS AND REQUESTS 

^ 4 Hi It 

SUBROUTINE BEGIN 
CC«HON /KN/ lEAUC 

COJ!NC:i /OPT/ IGUN.IPNCH, lEXT , ISA « ,I , K H R , I.’IPZ 

C READ USSR OPTIONS 

CALL FHTCaS (»CiaSC5N ') 

10 WHITE (b.60) 

READ (5,^) IGUN 

“■ ' ".2)) GO TO 10 



If ( (IGUN.NE. D) • AND. (IGUN.N2. 1) . AND. (IGUN.NI 
CALL FHTCNS (•CLHSC5N *) 

IF (IGUN.NE.T) GO TO 20 



20 



30 



40 



50 



_ (IGUN 
WHITE (6,70) 

WRITS (6,80) 

BEAD (5,i) INEZ 

CALL FuTCXS (•CLRSCEN •) 

WHITE (6,90) 

READ (b,*) i:iP 

If ( (i:iP .N£. 0) .AND. (INP. NE. 1 ) ) GOTO 20 
CALL PHTCaS (*CLHSC?N ') 

WRITS (6,100) 

READ (b,*) XEH 

IF ( (KER .NS. 0) .AND. (KER. NE. 1 ) ) GOTO 30 
CALL c HTCNS ( * CLiSCSN ' ) 

WRITE (6,110) 

WHITS J6, 120) 

READ (b,^) I5AUC 

IF ( (IBAUD.NE.C) .AND. (I3AUD. NE.l) ) GO TO 40 
CALL FBTC^IS ( ' CL2SC3N • ) 

WRITS (6,130) 



BEAL (b,^) KON 

IP ( (KON. NE. 1 ) . AND. (ROM. NE. 2) ) GO TO 
CALL FRTC.rS (^CLSSCr.N M 
12 (KON .NE. 1) CALL CONCHG 



50 



C INITIALIZE THE GRAPHICS AND CLEAR SCREEN 

C 





CALL DSTN IT 




CALL GSEESE 
RETURN 


60 


FORaAT 

HianAT 

Format 

1) 

FORtlAT 


(56fi 


70 


(55H 


30 


(55B 


90 




;5CH 


100 


FC5MAT 




!5oa 


110 


PORNAT 




54H 


120 


POHNAT 




35a 


130 


PCRNAT 

END 




50H 



1 =1200 BAUD) 
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C SQEaCUTINE CONCHG 
C 
C 



SaSROUTINE CONCLG 



THIS SUEROUTINS AXLCWS CFESATCR CHANGES TO THE 
S 1 2 U I AT ION ? AH A ,1 E I E R S . 






CO.'IHON /?AR3/ 'I.1D ,ACLI?T,CLXAX/WL,T?! AX , C CO , C DK , V .1 AX 1 ,7.'1AX: 
CCJfHCN /F AHU/ AF ?MAX ,HT!1 I N, HT X AX , SFD M IN , G H AX , POPilIN 
COrtHON /TAR/ TARGX,TARGY 



C SHITE INSTRUCTIONS 
C- 
10 



20 



30 



40 



50 



60 



70 



30 



90 



100 



1 10 



120 



130 



140 



150 



6,190) 

b ,200) 

6 , 210 ) 

6 , 220 ) 

6 ,230) 

6 ,240) 

6,250) 

b ,260 
6'270 
:< 

__ .LZ. 0) -OB. (K .GT. 17)) GO TO 10 

GC TO (180, 20 , 30, 40, aO, o 0,70, 5C, 90, 1 CO, 1 10, 120 , 1 30, 140 ,150 , 16 C, 1 70 

1) , K 

SBITE (6,230) 

READ (5.^ ■■ 

GC TO 10 



SRITE 

WRITE 

HBITE 

WRITS 

WRITE 

SBITS 

WHITS 

WHITE 

WHITS 

BEAD 

IF ((K 



M CLEAX 



WRITE (6 ,290) 

READ (b,*) WL 
GO ro 10 
WRITS (6,300) 

READ (5,») SPDKIN 
GC TO l3 
WRITS (6,310) 
real (5,») G>lAX 
GO TO 10 
WRITS (6,320) 

READ (b.<) arxiN 
GC TO 10 
WHITE (6,330) 

READ (5.*) HTKAX 
GO TO 1 0 



WHITE (6,340) 
(5x*) 



POP KIN 



i6 

(6 ,350) 

5,^) APFKAX 



READ 
GC TO 
WRITE 
BEAD (j, 

GC TO 10 
WHITE (6 ,360) 
HEAD (5.*) THAI 
GC TO l0 
WHITE (6,3 
HEAD (b,*) 

GO TO 10 



cbo 



WHITE (6,330) 
READ (5.^) -- 



GC TO 
WRITE 
BEAD ^ j ^ 

GC TO 10 
WHITE (6,400) 
READ (5.») ■ 



CDK 



1(5 

(6 ,390) 
(b,*) VMAXl 



V»AX2 

GC TO ' 10 
WRITS (6,410) 

BEAD (be*) TARGX,TARGY 



GO TO 



C 

C READ NEW PARAKSTSR VAIUES ?202 THE DISK 

C 

160 REWIND 16 
READ 
READ 
READ 
GO TO 



16,450) CLKAX, WL, SPDaiN,G4lAX,aTMIN,HT:iAX 
16,450) FCcKIN .AP?KAX,TKAX,CDO ,CCK, VXAX1 
16,450) 7WAX2,rARGX,rARGY 

10 



120 



C WflITE EARAi'lETEH 7ALL'£S TC THE TEHIililAL 

C 

170 W5ITE (6,420) 

MBITS (6,45 0) WL,SPDiniM ,G3AiC,aT?lIN, HTilAX 

MHITE (6 ,430) 

3HIIS (6,45 0) POtSIN ,A??inAX,T;!AX,CD0 ,CDK, V.'lAXI 
WEITS (6,440) 

WRITE (6,450) VttA X2 , lARG X ,T A 3G i 
GC TO 10 



C SAVE lARAWETZH 7A10HS CH DISK AND RETORM TO CALLING ROUTINE 

C- 



180 



190 
200 
210 
2 20 
230 
240 

250 

260 

270 



BEWIND 16 



WHITE p 6,45 0) CL^!AX , WL ,S p.MI ,G.-AX, HT S I N , HT K AX 
WRITE \1b,450) RC£XIi\,A??.iAX, i! 1AX,EDG,CDK, **1AX1 
WBITE (1 6,450) VaAX2 ,TAHGX,TAFGI 
HETURN ■ 



FOH!5AT 

fCHilAT 

FORi'lAT 

fCB.^AT 

FCBMAT 



(25H 



FORMAT 



(50H SELECT FARASEIER TC BE CHANGED: 1=NO XOHS CHANGES) 

(48H 2=MAX LIFT COEFF; 3=-ING LOADING; 4=STALL SPEED) 

(47H 5 = «AX G FORCE; 6=«IN ALT; 7-J1AX ALT(<2200 XTR) ) 

(42H d^CISTANCE TO TAR(^ET 3EFCHE POPUP ALLOWED) 

FORMAT (63H 9=«AX APPROACH ALT; 10=MAX T/W RATIO; 11=DRAG COEF. W/ 
10 LIFT) 

(44H 12=LIFT DRAG CONSTANT: 13 = MAX SPD WITH 50H3) 

(U4H 14=XAX SFD W/0 30XE; 15=TARGET COORDINATES 



;S THAN 2000 xETEHS)) 

’A3GEI JEFORE ?UP-U? ALLOWED 



280 


FORMAT ( 


[27H 


ENTER 


MAX LIFT COEFFIC: 


290 


FORMAT { 


19H 


ENTER 


WING LOADING) 


300 


FORMAT 1 


1SH 


E N T E R 


STALL SPEED) 


310 


FCRMAT j 


1 26H 


lNTFR 


MAX G F03CZ ALLCl 


320 


FORMAT 1 


[23H 


ENTER 


MINIMUM ALTITUDE 


330 


FCHMAT 1 


47H 


ENTER 


MAXIMUM ALTITUDE' 


340 


FORMAT ( 


55H 


ENTER 


MINIMUM DISTANCE 



350 

360 

370 

380 

390 

400 

410 

420 

430 

440 

450 



1 ) 



FORMAT (32H ENTER MAXIMUM APP5CACH ALTITUDE) 

FCHMAT (35H ENTER MAX THRUST TC ^LIGHT ALLOWED) 
FORMAT (37H ENTER DRAG COEFFICIENT FCE ZERO LIFT) 
FCBMAT (25H ENTER LIFT DRAG CCNSTANT) 

FORMAT (32H ENTER MAX SPEED CARRYING A EOM5) 

FORMAT (39H ENTER MAX SPEED AFTER bOMo 13 ciELEAS ED) 
FOoMAT (33H ENTER TARGET X ANL Y COORDINATES) 

FORMAT (55H MAX CL WING LD STALL SPC MAX G 



1 ) 

FCSMAT (75H POP-UP DIST 
1 MAX SPC WITH 5CM5) 

FORMAT (55a MAX SPD «/0 3CM3 
1 ) 

FOBMAT (6F12.4) 

ENE 



MIN.BT. MAX.HT, 
APPH.HT. MAX THRUST CDO DRAG CONSTANT 



TARGET X COOHD, 



TARGET Y COORD, 
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Qt*'*^^^^'***** ^ ^ m% * * * ^ ^ 4 ** ^ *** * ^ :ttm *^*m*wi* *-^m^**^* :^^iicyf. th ^ ^ jt m m 

c soaaouTiNE sceuz 

C THIS BOUTINS DRAWS THE ATTACK :1A?AND ASSOCIATED 

C DISPLAYS. DURING BESET IT C ET AI NS THE LAST .^ILE- 

SUERCUTINE SCENE CBC.ICT) 

CO.'IJION /KNV HINX ,DAXX, :il NY , *'1 AX Y , :il NX 1 , EAXX1 ,:UNX2, MAXX2 
CC:inON /HR?/ MKEHX (3) ,. 1 KEaY (1 8) 

CC.*i:iQM /^YN/ I5AUE 

CO.^rtON /FAR/ Xt20 0) ,Y(2D0),2 (200) ,HDG (2 00) ,CA (200) , RA (200) , VEL (2 00 

1 ) 

CO«!iON /TAR/ TARGX^TAHGY 
S£AL^4 GX,GY 
LOGICAL ♦1CHAR2 (20) 

ICT=0 

C 

C EBASE THE TZK618 SCREEN 

CALL GSEESZ 

CALL OSTEBH _ __ 

C READ USER OPTION S : ECRDER AND GUN/YISS POSITS OR FILL IN «A? ALSO. 

iRITE (6.100) 

HEAD (5,*) .'lAF 

IF (IR-^ .EQ. 0) GC IC 10 

WBITE (6,90) 

HEAD (5,^) ICT 

CALL FETC.YS (’CL3SCBN ») 

C 

C DHAW THE X,Y «AP 

C THE RCOTINE HEADS X,Y PAIRS F RO H FILE 09. A -2.0,0 INDICATES 
C END CP FILE, -0.5,0 INCICATES A •10VH,ALL CT-HER VALUES ARE PO- 
C SITIVE AND RESULT IN A EBAW TC THAT POINT. 

C RE-INIipLIZE pZ TEK618 p2EEN_ __ 

10 CALL D3INIT 

CALL WIN (rtINX,HAXX, 18D00., 12CC0. , 1) 

IF (HAP .EQ. 0) GC TC 40 
HEWIND 9 

READ (9,80) GX,GY , 

20 BEAD (9,80) GX,GY 

CALL G3HOVE (GX,GY) 

30 BEAD (9,80) GX,GY 

IF (GX.LT.-1) GC TO 40 
IF (GX.LT, 0) GO TO 20 
CALL GEDEAn (GX,GY) 

^ ^GC TO 30 _ . _ 

C MASK THE TABGHT: GUNLCC PUTS A > AT GUN/HISS POSIT AND CIH CDKS CHI ££S 

40 CALL GUNLCC ( T ARGX , T ARG Y , 150 • ) 

CALL GUNLCC ( T AEG X , T AEG Y , 300 . ) 

C DBAS TIC HARKS SVEHY 2000 .I IRS 

DO 50 1=1,8 

IW=2^I ^ 

C THIS BLOCK DSAWS TEE X-AXIS TIC NAEKS 

CALL GEflCVE ( 1^20 00. , 10 00 .) 

CALL GBDEAW (I^2OC0,,0.) 

CALL GAXITC M , IW .2 , CHA RS ) 

CALL GBCHAS ( I ^ ^0 00 . , 0. , 2 . , 0 . , 2 , CHAR S) 

C THIS BLOCK DBAWS TEE Y-AXIS TIC HARKS 

IF (I .G£. 6) GO TO 50 
CALL GBHC7E ( 1 CUO, . I *2000 .) 

CALL GBDEAW (0.,2C00.*I) 

CALL GAXITC ( 1 ,I W , 2 , CHA R S ) 

CALL GBCBAR (- b 0 . ,1* 200 0 • ,2 0. , 2 , CH A RS ) 

50 CCNTINUE 
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nnn-j non 



I i=aij) Y 
I2=aAXY 
nAXY=aiNT-i5 
aiNY=alNY-200 

CALL 3ia (aiMX + 275,aiNX V2200, 195. , 185. , C) 

CALL uSCHAa ( 1 C. , 1 1 0 .,2 .5 .0. , 2C, ' XCY aASKS IM 
CALL (ABCBAa ( 1 C . ,U0. ,2. 5 , 0- , 5 5 , ' ZE20 DLG5EES 
CALL GSFBCE 
MAXT=I2 
ai::Y=i i 



2000 

ALONG 



METER XKTVLo') 
X AXIS') 



DBAS THE ALTIMETZS 



CALL AIN (f!IMX1,MAXX1,J50., 22CC., 1) 

DO 60 1=2,20,2 

CALL GEMCVE (O.-I^IOO.) 

CALL GBDnA* ( 3 50 . ,I « 100 . ) 

CALL GAZITC }l,I,2,CfcASS) 

CALL GBCHAB ( 0 . , I * 10 0. , 2 . ,0 . , 2 ,CHAa S ) 
DO 70 1=1,6 

CALL GBMCVE (I»50.,100.) 

CALL GBDBAb (I»50.,C.) 



MAHK RESET PCINT VELOCITY AND ALTIIUDE AS OPERATOR AID 



I? (I20.NE.0 .AND. ICT .GT. 1) CALL GBGDOT (9 . , VSL (ICT) ,Z ( ICT) ) 
aAXY=MINY-15 
aiNY=aiNY-200 

CALL SIN (aiNX + 23C0,ai:U<-3900 , 195. , 1 35. ,0) 

CALL GBCEAJ ( 1 0. , 1 1 U . , 2 . 0 , 0 - . 25 , ' ALT MA3KS IN 2J0 HETER INTVLS') 
CALL G3CHAR ( 1 0 . , 60 . , L 0 , 0. , 3 3 , ' VELO IN 50 a/S INTVL ALONG X AXIS' 

^CALL GSFSCS 
3AXY=r2 
2INY = I 1 
3ETU2M 
80 FC:<2Ar (2F10,2) 

90 FORMAT (38H AT -HICxH POI NT DO YOU WANT TO BZSTA2T) 

lOU FORMAT (38H VILLAGE: 0=NOT DRAWN; 1=7ILLAGE DRAWN) 

END 
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non non nnonon 






I t :$ 1$ t ** * ^** * ^ ** ^* ^ * *^**^ ■ 

SOBBOUTINE WIN 

IHI 3 aCCTINH DEFINES A WINDOW EXTENDING FR 0.1 LX TO ? 1 X 
CN TbE HORIZONTAL AXIS, AND FROtl .' 1 INX TO 51 AXX ON THE 
VERTICAL AXIS. THE HORIZONTAL 3 ANG 2 IS HX , THE 
VERTICAL RANGE IS RY. 

SOBROUTINE fi Hi ( LX , .'-.X ,HX , RY , J 2 P) 

COrtflON /MN/ IEAOd 

cc*'i:ioN /:iNV xi:ix,XAxx,:ii:iY , axy.hin xi , :iaxxi , hinx2^ :^axx2 

REAL *4 WINW 4 ) 

INTEGEH *4 V T ( 4 ) 

DATA WINT ( 1 ) /C./, WIN 1 J 2 ) /O./ 

DEFINE THE WINDOW 



71 (2) =MINY 
71 (4) =,1AXY 
WIN! (3) =RX 
WINI (4) =EY 
VI (1) =LX 
VI (3) = .-1X 




CALij 'jASVIh 


(VI ,3) 


CALL GAS WIN 


(WIN 1,3) 


IF 


(JHP -ZQ. 


0) GO TC 20 



PLASH THE DEFINED WINCCW 



10 

20 



ICT=u^ 50 ^I 3 ADD 
DC 10 1=1, ICT 

CALL G3KOVE 
CALL GEL5AW 
CALL GiiDRA- 
CALL GEDSAW 
CALL G E D H A 4 
RETURN 
END 



(C.,0.) 

(W IN 1 ( 1) /WIN 1 (4) ) 

( WIN 1 tJ) ,wi:n j4) ; 
{•-•I;n (3j ,wr:! i (2i i 
( 1 ) ,*i:n o ) 
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SCBBOUTIIiS GUNLOC 






THIS SUESOOTINE CRAWS EFFECTIVE FIRE RADIUS CIRCLES 
ARCUND THE DEFENSIVE AAA cATTERIES. IT DRAWS 
A RING /ilTHIN WHICH AIRCRAFT ?Oc?-U? HUST TAKE PLACE 
ANC A SING OUTSIEE WHICH TEE T£?E J AAA BATTERIES 
MUST 3E PLACED. 



SJEROUTINE GUNLOC (G:i,GY,RAD) 

COMMON /KN/ I3AUD 

COMMON /MNl/ MINX, MAXX, MINI, MAXY, MINX1, MAXXl ,:iINXM,MAXX2 
REAL^4 X,Y,DX,CY 
X = GX 
Y=GT 



IDENTIFY THE MAP AND PLACE A »♦ » AT THE LOCATION 



CALL WIN (MINX,MAiX, 18000., 1 2CC0. ,0) 
CALL GSMCVE (X-75.,Y) 

CALL GBDEA-, (X + 75..Y) 

CALL GEMC7E (X,Y+7b. ) 

CALL GBDRAW (X,Y-75. ) 



DETERMINE NUMBER OF STEPS TO BE USED 



I£TEP=3 

If (RAD. LT. 1600.) ISTE? = 0 



DRAW A CIRCLE ARCUNC TEE SITE 



DC 10 1=3 , 130 , ISIEP 
ANGLE = I*C.03U 9C7 
DX=RAD«CCS (ANGLE) •♦X 
DY=RAD*SIN (ANGLE) +Y 
CALL 3EMCVL (CXMC. , LY) 
CALL GBDHA.^ (DX-1C.,CY) 



DRAW 3KM S 6KM GUNSITE AND POP-UP IIMITATICN RINGS 



IF ( (X.NE* 140 0 C.) .AND. (Y. NE. 7 2 20.) ) 
CALL GEGAEC ( 3 00 0 . , 3 00(J . , X, Y , 1 . , 1 , , 2 . ) 
CALL GEGARC ( 6 00 G . , 6 000 - , X, 1 , 1. , 1 . , 2 . ) 
RETURN 
END 



5ETURN 
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I 



non onoooo o oono noon 



SOaSOUlINS XYPT 

THIS SOEHOUTINE CETAI.NS THE X AND Y COORDINATES 
AND COHr^AND FOR EACH DESIGNATED POINT (MILESTONE). 

SCEROOTINE XYPT 

CC2HON /ICC/ X 1 ,7 1, 2 1,V 1 , ITS, LTR2 

C0M:10N /KNV KINX ,AAXX, :il NY,MAXY,HINX1 , .^AXXI ,NINX2, *^.AXX2 
CCHilON /^,tt/ lEAUC 
CALL BELL 



FLASH NAP AND GST X,^ AND THE FIRST CONN AND 



CALL JIS (NINX,NAXX, 18000., 1 2CC0. ,1) 
CALL SPOT (XI ,Y1,ITP) 

CALL 3£>LL 

RETURN 

END 



c 4c « ^ ^ 



e ^ # 4 4c4 4i4c 



SUBHOOTINE 2VPT 

THIS SUDHOUTINS CETAINS THE ALTITUDE AND, DEPENDING 
CN IFS CIRCuf!STANCES , THE 7ELQCIT7 OF THE DZSIGNATEC 
PCINT. 



*^4t*44c4t 4c4t» 



;^4c* 4c4(4c^4i * Jit ^ H: ^ 



SOEROUTINE ZVPT 

CO:iHON /ICC/ X 1 , Y 1 , 21 ,71 , IT 5, ITS2 

CC.'-.aON /HNV MINX, HA XX,. II NY ,HAXY,:iIN XI, HA XX 1 , HIN X 2 , H AX X2 
COHNON /HN/ lEAUD 



FLASH ALIIHETER AMC GHT V£L,ALT AM THE SECCNC COHEAND 



CALL WIN (HINX1 .HAXX1,350 
CALL S POT {V 1 , 21 , ITS2) 
RETURN 
END 



220C. , 1) 
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1 






1 






I » « 4c « 

^ SOBfiOUTINS SFCT 

C THIS HETraNS AN X-Y PAI 5 AND A COMMAND VALUE LI 

C TI-E SOUTINE ALSO CREATES A DOT AT POINT X//. 

SUEHOUTINc SPOT (X,Y,L1) 

REAL»4 IX,TY,DCT 
INTEGES*4 L,.1,CUT,KEY 

C aiAC TBH CURSOR ANC PICK UP USER CC.'lilANO 

CALL GcRXYC ( , L , K ZY ,TX , T Y) 

CALL GAICTI ( 1 ^ r< E Y , 1 ,LZ N , CUT ) 

DCT=40 . 

C 

C 3AHK THE SPOT 

Q 

CALL GEGCCT (CCT,TX,TY) 

X=IX 

_ Y=TY __ 

C CONVERT THE CCEMANC TC TFE PROPER ROR3AT 

C- 



^ ♦ »e <» ♦ jjc 4c 4c» 



L1=0 
IF ( 


1 

■OOT.EQ. 1) 


L1=65 


I? ! 


|OOT. EC- 2) 


11 = 00 


IF ( 


;ouT.zc.J) 


L1=82 


IF ( 


OUT. IQ. 4) 


Ll = 63 


RETl 

END 


laN 





^ IV 4( 4 4 4c^ 5 



c*» 

C SUEHOOTINE GUNCUK 

C THIS SClROUTINE CHECKS GUN LOCATIONS AGAINST 

C S3PLACEME:II wRULIS. 

Q t 4$ i4E«4c4c4c«*c«« «4c«4«4c««4c 

SUEHOUTINE GUNCHK (X,Y,IERR) 

C0K30N /TAR/ TAfiGX,lARGY 

C COMPUTE DISTANCE TC TARGET 

DIST=SQRT ( (X-TARGX) ♦♦E (Y -T A RGT) 2 ) 

IE (DIST .LI. 30G0.) IERR=13 
RETURN 
END 






tt*t*m*i 

C SUBfiCOTINE SArtCHK 

C THIS SUBROUTINE CHECKS THE MISSLE EMPLACEMEN: 

C AGAINST GAMS LIMITATIONS. 

► ♦ 3 

SUBROUTINE SAMCHK (X,IEHR) 
lEHR^O 

IF (X .GE. 6000.) RETURN 
CALL SEHMK (13) 

IESa=1 
RETURN 
END 
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: ^ ^ ^ 4 * **'* ^ ***** ^ ^ * **’tf'* ^ 






Q** * ^ 

c sosacaTi^s eerjik 

G TEIS 5UEROUTINE SENDS PRC.'IPTS AND 2HECE MESSAGES 

^ 44 44444444444 ^ S * 5 ^ | A ♦ ^ 4. :** :* ^ 4c 4t » 4i :* ♦ ♦ 4c ^ C * 1. ^ * 4c ♦ 

SaBEOUTINE EES2K (IEEE) 

CCaaON /2N/ IcAU£ 






COtTilON /KN1/ SINX..1AXX, XI liY , N AXY , .'ll N X 1 , XAXX1 , Xi:iX2. XAXX2 

CCXXON /r AR/ X (20 j5) , Y (2'JO) , Z (IDO) ,:1DG (2 JO) ,Z\ (200) , 2A (200) , VEL (200 

CCXMON /PAEV X COT (ICO) , TOOT (ICO) ,CDOT(200) ,X:rJ«,X5E 
COXXON /ERE/ SKEH5 (3) .2KEST (1 5) 

IE (isaa .GT, 2 1) (30 TO 2 10 



1 ) 



PRCaPT VINCCW 



C FLASH THE 

CALL 4IN (HINX2, :iAXX^, 2700. , 165. , 1) 

CALL GSFEC2 

GC TO f 10,20 , 30, '4 0, 5 0,6 0, 70, 8C, 90, 10 C, 1 10 , 12 0, 130,1 40, 150 , 16 0, 17 0, 
1 1 60,1 9 (J) , lERR 
aEItE j6j^220) 



10 



20 

30 

40 

50 

60 

70 

30 

90 

100 

1 10 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

320 

330 

^4C 



GO TO 
WHITE (6,230) 
GO TO 20C 
WHITE (b,240) 
GO TO 20C 
WHITE (6,250) 
GO TO 20 C 
WHITE (6.260) 
GO TO 20G 
WHITE (6,270) 
GO ro 20 c 
WHITS (6.230) 
GO TO 20 C 
WHITE (6,290) 
20C 
6 ,300) 



GO :o 

WHITE 
GO TO 
WHITE 



360 

370 



iofi 

(6,310) 
GO TO 2uC 
WHITE (6,320) 
GO TO 200 
WHITS (6,330) 
GO TO 200 
WHITE (6,340) 
GO TO 21 C 
WHITE (6 ,350) 
GC TO 21 C 
WHITS (6 ,360) 
GO TO 21 U 
WHITE (6,370) 
GO TO 21 C 
WHITS (6 ,380) 
GO TO 200 
WHITE (6 ,390) 
GO TO 200 
WHITE 
GC TO 
WHITE (6,410) 
EETURN 
poaaAT 
FOHaAT 
FORKAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FCEMAT 
FORMAT 
FORMAT 
FORMAT 
FCEMAT 
FORMAT 
FCEMAT 
FORMAT 
FCRMAT 



j6j.00) 



!( (asiUB) ,Y (HNun) ,2 (Maua ) ,7 el (aauM) 



(25a aAxiaoa esaking exceeded) 
(15H MAX G EXCEEDEC) 



(12a All ICC LOW) 
tlGd) 



(6B STALL) 

(15H PCE-JE TCO LOW) 

(13H 3HS DECS LOW) 

(12H HME CEOE HI) 

ISfTTOC FAB ?a TGT) 
na HEG>5 LEG TO TGT) 

19H PISAL aU!i<2.33 SEC) 

2ia ac HCSI2CNTAL aOTICN) 

17a TOC CLOSE TO TGT). 

23H ENTEH aiSSILE LOCATION) 
(26H EalEB AiaCBAFT .11 LEST OU'E S) 
(20a ENTEB GOa LOCATIONS) 



128 



380 FCBilAT (18H .1AX LJFT SXCZZDZD) 

390 FOar.AT (2CH nAX TH2UST 3XC3HDEC) 

400 FCHaAT (28h X CCCBCINArS LESS THAN 6000) 

41C FOHdAT (19H X , Y , Z , AND VELCCIT Y ,4F9. 1 ) 



C SUSflOaTINS VALS: 



♦♦ ♦:)t 



c 

c 

c 

c 



THIS SOBHOUTINE CC.MPUT2S IBZ FLIGHT 
I It 



?k^kM7Z?.S cca 

_ _ HDij, AND3A 

ABZ CO:5^UT£D ?OR CUTOUT TO ?0U1 AND .IICE II. AND 

ACLIfT AE2 CC:iPUIED FOR USE 2Y EBRCHK. 

SUBROUTINE 7ALSET (IZHR) 

CC2SON /PAH/ X (200) , Y (2 C 0 ) , Z (ICO) ,UDG (200) ,CA (20 0) , KA (200) , VEl (200 



1) 



COaaON /PARI/ XDCI (20C) , YDOT (200) ,2DCT (200) , .1NU:i, :iER 
/PAR2/ T{200) 

COflKON /PARJ/ T:1D ,ACLI?T .CL.IA X AX , CDO . C DK , 7 r- AX 1 , V AX 2 
DIMENS ION AXD (200) , AYD( 20O) , A 20 (2 00) , XD D ( 2 00) , YOD (2 00) ,2D0 (200) 



10 

C- 

C 

C- 



= 9. cJ2 

DX=X (MNOM) -Y (MNUM- 1) 
DY-Y MNUM) -Y (MNUM-1) 
DZ = Z(MNUf1) -Z(MNUM-l) 
IF ((DX •NE- 0,) -OH. 
IEHR= 1 2 
RETURN 
V AVGL=VAVG 
DI£TL=DIS1 



(DY . NE. 0. ) ) GO TO 10 



LIMIT THE SPEED 

DIST=5QR1 (DX**2 > DY«*2 



DIST=50R1 (DX**2 > DY«*2 ^ DZ^^2) 

IF (( V£L(MNUM) . GT . V:i AX 1) . A N C. (M 3R •EQ. 0) 
IF (( VEL(MNUM .GT. VM A X 2) . A NO. {M3R .g1. 1) 
7AVG=( VEI (MNUM +VEL (MNUM- 1) ) /2. 



= f VEI (MN 
DT=DI^T/VAVG 
T (ONuM) =I (MNUM- I ) +DT 

COMPOTE AVERAGE VELOCITY COMPONENTS 

AXD(:iN CM) =VAVG’^CX/DI£T 
AYE (MNUM) =V AV G^CY/C I5T 
A ZD (MN UM) =VA VG=>D2/DI5T 
IF (MNUM .02. 3) ^0 TO 40 



VEL (MNUM) =VMAX1 
VEL (MNUM)=7MAX2 



C COMPOTE 
C— 



:hs parametehs for the initial leg of the flight path 



CA (1) =ATAN2 (D Z ,SOHT (CX*^2 DY<^2)) 

I? ((DX .EQ. 0.) .03. (DY . EQ . 0.)) GO TO 20 

HDG (T) =ATAN2 (D Y,DX) 

GO TO 30 



20 


IF ((DX .EQ. 


0 


.) .ANC. 


(DY .Gl. 0.)) 


HDG ( 1) 


= 1 




IF ((DX .EO. 


0 


.) .ANC. 


(DY . LT. 0.) ) 


KDG ( 1) 


= - 




IF ^DY .EQ. 


0 


. .ANC. 


(DX .LI. 0. ) 1 


HOG 1 


= 3 




IF {{D'i .EQ. 


0 


.) .ANC. 


(DX .GI. 0.)i 


HDG( 1) 


= 0 


30 


RA (1) =0. 














XDCT (1) =VEL( 


1) 


♦CX/DIST 









1.57073 
. 14159 



YDOT 1 =VEL 1) *DY/DIST 
ZLCT (1 ) = VEL( 1) *C2/DIST 
RETURN 

DELT= (T (MSUM) -T (MNUM-2) ) /2. 



40 
C — 

C COMPUTE THi aCCELESATICN COMPONENTS 

XDD(MNOM-l)= (AXn (MNUM) - AX C ( MN OM- 1) ) /DELI 
YDD(MN0M-1)= (AYD (MNUM) - AYD(MNUr'-1))/nELT 
2ED(MNUM-1)= ( AZC (MNaM) - A Z D { M N UM- 1 ) ) / DELI 

C WEIGHT AVERAGE OF TEE VELOCITY COMPONENTS 

aCAVG=CISTL/ (CIST^CISTL) 

TDX= (AXD (MNUM) / VAVG- AXD ( M NO M - 1 ) /V AVG L) ♦ HD A VG ^ AX D ( MN UM- 1) /V AVGL 
TDY= (AYD (MNUM) /V AVG- AYD (M NUM- 1)/VA7GL) HDA VG YD (MNUM- 1) /V AVGL 
TD2= (A 2D (MNUM) /V AVG-AZD (M NUM- 1) /VAVGL) ^BD A VG + AZD (MS UM- 1) /VA^VGI 

C MAKE THE WEIGHTED VALUES A UNIT VECTOR AND COMPUTE THE MILESTONE 
C VELOCITY COMPONENTS 

C 

UNIT^SQRT (TDX^TDX +TCY*TDY ^ TIZ’^TDZ) 

IF (ABS(UNIT) .GE. 0.01) GO TO 50 
I£RE=12 



150 



5C 



60 

70 



RETURN 

IDX=TD X/l’NIT 
TCY= rOY/ONIT 

TP7 = Tn 7 / r NT 

XECT(JlN(J«-ir=V£L *TDX 

YEOT (M NU«- 1) = V El NU!--! ) * TD Y 
ZLCT(.'INOK-I) =7 EL IIU ) ^TDZ 

IF (SQRT (TDX^TCX + ICY^TDY) .G2. 0.01) GO TO oO 
CA (tYNU*^-1)-1 .5533 
Gc ro 70 

CA (rtN0M-1)=ATAN2 (IDZ,SijRT (T DX ♦! DX+T D Y ♦! CY) ) 

I? ((TDX .£Q, 0,) .GH. (T:Y .EC- 0,)) 30 TO dO 

HDG L’dNU:i- 1) =ATAN^ (T0Y,rDX) 

GO TO 90 

HOG(NN'Urt' 
HDG 

3DG (‘INUd- 
dDG (UNUa- 



80 


IF 


((TDX .EQ. 


0.) 


.AND, 


(TDY .GT. 


0. 




IF 


((TDX .EQ. 


C.) 


• A N D • 


(TDY .IT. 


0. 




IF 


((TCY .EQ. 


0.) 


.AND. 


(TDX .IT. 


0. 




IF 


( TDY ,£Q. 


0. 


. A ND. 


(TDX .GT. 


0. 



- 



1 ,5 707 9 
-1. 57079 
3. 14159 

0 . 



c- 

C COfJIONENTS Of ACCEIEHATICN IN THE AIRCRAFT COORDINATE GYSIEH 

C 

90 



CASIN=SIN (CA (NNU‘1- 
CACCS^COS (CA (NNU.^; 



1 ) ) 
1) 



HDSIN=SIN (HDG (aNUN- 1) ) 

HDCOS=CO£ (HDG (HNUH- i ) ) 

Aii=xDC(am):i - 1 ) *dCCCo*cAcos 

A2i=-XDD (airja-1) ^bdsin 
A 31=-XDD (3NUa-1) ^ h DCCS^ CA SIN 
Ali=YDD (UNUa- 1) ^KZSIN^CACCS 
A 22 = YD D (2N0a- 1 ) ’^'HCCCS 
A3 2 =-YDj (NNUM- 1) ^ EDS IN* C A SIN 
A13=(2DD (NNUa-l) ^GEE) *CASIN 
A23=0. 

A3 3= (ZDD (aNOa- 1) ^GEE) *CACOS 

C 

C CCaiOTE ACCELERATICN PARALLEL AND 2 ER FEN C IC UL Au EG FLIGHT PATH 

' THL= (A 1 1-^A12^- A 13) /GEE * 

ACLIFr= (SORT ( ( A2 1 + A2 2)** (A3 UA3 2+A33) ♦*2) ) /GEE 

IF ( ABS ( a3UAj 2 + A33) .GE. 0.01) GO TO 100 
aA(HNOa-1) = 1. 57079 
GO TO 1 1 C 

100 a A (HNUa- 1) =AT AN2 ( (Al UA22) , ( A 3 U A32^ A33) ) 

110 CALL ERRXK (22) 

RETURN 

END 
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c 
c 
c 



4 

SCafiOOlINE EHHCHK 

THIS 3UER0UTINE BVALUATZS THE FLIGHT PARA.^ETS 
ENSURE THAT THEY «£ET THE DESISED SIMULATION 

|C]4 ^ 4* 4:4^4^«4I«4444 4444 44^ 4444 44 4444444 444 444444444 4444444444 

SUEROUXINE SRRCHK (lERR) 

CCHHON /FAR/ X (2 o C) , i (2 0 0 ) , 3 ( 200 ) , KD G (2 00 ) , C A { 20 0 ) , R A ( 200 ) 
1 ) 

COHHON /FAR 1/ XDOT (ICO) , YDOT (2C0 ) , 30 CT ( 20 0 ) , 

CCiinON /FAR2/ T (200) 

COMMON /TAR/ TARGX,TARGY 

COMMON /FAR3/ TM C , AC LIFT , CLM A X , WL , TM AX , CDO ,CD K 
COMMON /PAR4/ AFFMAX ,HTMI N,HT ?.AX,oPD MIN^GHAX , ?0?dIN 
DATA TMS AV/-1 ./ 

DX = TARGX-X(MNU:i) 



i 44 

RS TO 
LIMITS. 

«$444444 

, V£L(2C0 



DY=TARGY-Y (MMUM) 
DIST=SQRT (DX^*2 DY^»2) 



(Z (MNUM) .LT. AFPMAX) ) GO TO 20 



C INITIALIZE POPALI AND IMSAV ^ 

I? ((MNUM.NE- 2 ) . AND. (TMSAV. NE.-U) ) GO TO 10 
FCFALT^O . 

TMSAV=XM AX 

10 IP (MBR.EC.O .AND. TMAX . N E. TMSAV) TMAX=IM 5 AV 
CALL 2 KRMK ( 23 ) 

IP CISa ,GE. 1 ) GC TO 20 
IP {(DIST .LT. FCBMIN).ua, 

IERR=a 
RETURN 

20 IP (DIST. LZ. PCFMIN .AND. 3 ( M N C M) . GT. FO F ALT) PC PA LT= Z ( M NUM) 
IF U(MNUM) .ge. htmi:o GC to 30 
C IEER=i 

C PETURN 

Z (MNUM) =^HTMIN 

30 IP (Z(MNUM) .LE. ETMAX) TO TO UQ 
C ISRR=a 

C RETURN 

Z (MNUM) =HTMAX 

40 IP (VELCINUH) .GE. SFDMIN) GO TO SO 
IERR =5 
RETURN 

50 IF (MNOM .SQ. 2 ) RSTCRN 

IP (ACLIPT .LE. GMAX) GO TO 60 
IERR =2 
RETURN 



C 

C COMPUTE DRAG AND LJFT FORCES 

C 

oO 



70 



80 



BH0=0. 02 56^SXF (-0. 10 3*^{3 (MNUM) /1000. ) ) 

IF (Z(MNCM) .GE. 10670.) GO TC 70 
SH0=0. 007g3*EXF(-G.156»(Z(MNUM)-106 70.)/10 00.) 
CL=2*ACLIPT/ ( HPO* (V EL (MNUM) ** 2) /SL) 

IF (CL .LE- CLMAX) GC TO dO 
IEER=17 
RETURN 

D«=( (CE0*CDK»C1*C1) / CL) * ACLIPT 
TW=TMD+DW 

IF ((TW .LE. TMAX) .AND. (T W .GE. 0.)) GO TO 90 
IF (T^^ GT TMAX) L^RR— 18 

DH= (BHO* (VEL ( “SUM) »*i) /WL) • (O.CS+CDO +CDK» (CL**2) ) /2 . 
I? (TMDtDli .2E. 0.) IERB=1 
IF (IS8B .:1E. C) pETUEM 
90 IF (MNOa .ME. HEB) BEIU2M 

C EVALUATE BCMEING BOM 

DT^TCMNOS) -r (MNOM-I) 

TGIHDG=A1AM2 (DI.OS) *57. 29578 
•II (TGTHCG .LT. 0.) TGT HDG=T GIHDG *-36 0 . 



DX=X (M.NUM) -X ( 3NU.M- 1) 

DJ*x(asu«j-x (HNUM-n 
AC3DG= AT AS2 (DY , CX) *57.29 573 
IF ( ACHDG .LT. 0.) ACH DG=ACHEG+ 360 . 
HCGLMT* AES (T GT hCG-AC EDG) 

IF (POPALI .GE.10C0.) GO TO ICC 
IEEH =6 
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\ 



I 



I 

I 



i 




RE1UHN 

100 I? (2jaNUa) .GE.IOO.) GO GO 1 1C 
HETUaN 

110 .LE. 2000.) GC TO 120 

HEIORN 

120 IF (OIST .LE. 2000.) GO TO 13C 
IZaE=9 
SET02S 

130 IF (HDGLai .LE. 5.) GO TO 140 
IEBa=10 
SET UR N 

140 If (DT .Gf. 2.33) GO TO 150 

IEaa=l 1 

150 TttAX=l 
RETURN 
ENC 
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4 ^ 44 ^ 4 44^4 **■* 



SUBBCUTINS PTHPLT 

THIS SOBSOUTINE NCTIrlSS THE USEH THAT HIS MILE- 
STC:i£ HAS 3ZE:I ACCEPTED AND THEN SAVES THE SUCCESSFUL 
POINT IN A THMP05ARY DISK EILE. 

44 4* *•* -**-**^ *^ * 4^ 44tt 4 4*4 4 4 44 44 4 4 44 44**44*4 *-444 444 4 *■* 4 m 4*44 4* 



SUBBOUTINE PTHPLT 

CCMMCN /PAH/ X {2DO , Y (20 0) , 2 { POO) ,HDG (2 00) ,CA (2 JO) , HA (200) , VEL (200 

1 ) 

CCMaON /PARI/ XDOT (200) ,?DOT (2C0) ,ZDOT(200) ^aNUH^MBH 
COartON /«N/ I3AU0 

CC2MON /MNl/ MINX .M A XX, M INY ,M AXY,MIN X 1 , MAXX 1 , :ii:U2 , X AX X2 
HEAL^a 1X1 ,TY 1 ,TX2,TY2 
LOGICAL *KHAHS{1x) 

TX1 = X (rtNC:i-1) 

TX2=X (MNOM) 

TY2=Y (MNUM) 



ICENTIrY THE BAP, CFAW AND LABEL TEE FLIGHT LEG 



CALL .ilN (niNX,XAXX, 1800 0., 1 2CC0.,0) 

CALL GSBOVE (TX 1 ,TY1 ) 

CALL GBDFAW (1X2, IY2) 

IF ( MNUB .GI.99) I- = 3 

IF ((MNUB .GT.J) . AN r. (MN'dX. LT. 100) ) IW=2 

IE { HNuM .LE. 0) I«=1 

CALL GAXITC ( 1 , XN UM , IW, C H ARS ) 

CALL G3CHAR { T X2 , T Y2 ,2. , 0 . , I X , CH A HS ) 

CALL GSFECE 



SAVE THE POINT IN »T£XP TATA’ 



WHITE (19,10) X(XNUX) ,Y (HNUM) ,2(XMUX) ,VEL (XNUX) ,XBH 
HETUHN 

FCaXAT (4F10. 0,13) 

END 









SC3ROOTINE AIBPT 

THIS SUEROOTINE MARKS A LINE FROX THE CURRENT 
AIRCRArl POSITION TO THE TAGST AS A USEE AID IN 
ALIGNING 30XB RELEASE POINT. 



14 444 444 44 44 44 *44 444 4 ■ 



t 4444 4 44444 44 



SUEROUTIXE AIXPT (I) 

COXXON /TAR/ TARGX,IAHGY 
CCBBON /PAR/ X (200) , Y (200) 
RSAL*4 rX, T Y .1X1 , IY1 



TT1=TA RG Y 
CALL G3LT (1) 



TX=X (I) 
TY=Y(I) 
TX1-TARGX 



MOVE TO CURRENT XI1H3TCNE COORDINATES 
CALL GEXCVS (TX,TY) 



DRAW DASHED LINE TO TARGET 



CALL GflDBAW (TX1 ,TY1 ) 
CALL GSLT (0) 

RETURN 

END 
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^ ^ ^ ^ **^ * ^ ***** ^* 

C SUBROUXIiiS ELFIN 

C THIS SUEHOOXINS PEOOESTS TEE USES OPTIONS AND CLOSES 

C THE GSAcHIC SUBHCUTINHS. 

sasaouTiNE elfin (Last) 

COStlCN /CFI/ IGCS,ir:iCH, IFXT, ISAM,ia?,XEH 

coaaoN /a:;/ ieagl 

coaaoN /am/ ai:;x ,;iAiX,ai u ,aAXY,ax;ixi , saxxi ,/.in:(2, xaxx: 

C CLOSE GSAJaiCS SOUHNES 

CALL DSIESa 

C OLD (LAST=0) OB NES (LAST=1 ) FLIGHT PATH? 

IF (LAST -EQ. C) GO W 20 „ _ 

C aECOEST USEE OUTPOI CPTICNS 

10 SaiTS (6,40) 

HEAD (5,*) LAST 
CALL FRTCMS ('CLnSCEK ') 

IP (LAST.GL.2 .Ca. LA3T.LT.0) GO TO 10 
LAST=1 ♦32*LAST 
20 WHITS (6,50) 

WRITE (6,o0) 

READ (5.*) IPNCIl 
CALL FSTCaS (’CL3SCFM ') 

C IP ailESTONES CA3E FFCa DISK, aETUaN END OP FILS aAEKSF. 

C 

IP (LAST .EQ. C) LASI=33 
IF (IPNCH .EQ. 0) FETURN 
IF (IPMCH.EQ. 2) GC TO 30 
WHITE (6,7G| 

BEAD (5,*) TEXT 
CALL PHTCaS ('CLKSCHS ') 

IF (IPNCH .SO. 1) aE'.'UaU 
30 WHITS (6,a0)_ 

BEAD (5, *) ISAa 
CALL FSTCaS ('CLaSCSN ') 

IP^J|ISAa .LI. 1) .OB. (ISAa .GT. 7) ) GC TO 30 

40 POnaAT (51H ABE YC'J FINISHED WITH THIS FLIGHTPATH: 0=NO; 1 = YES) 

50 PCSaAT (43H OUIPOT FILE; 0=NO COTPUT ; 1=?001 FILE ONLY) 

60 FORaAT (51H 2=alC£ FILE ONLY; 3=?001 i aiCS FILES) 

70 FCBBAT (49K EXTENCEC OOTPUT; 0=NOT WANTED; 1=EXTSNDED OUTPUT) 

30 FCSaAT (29H alSSILE TYPE BETWEEN 1 AND 7) 

END 
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4W ^ A 



SUEHOOTINS P5E5ET 



THIi SC 
fCR TEE 



cROUriNS -FITES THE ?001 k'Ad MICE II FILES 
US Z3. 



SnSHOUTIKE PRESET 

coaaojl /PA3/ X (20C) , Y (2 30) , 2 (2C0) ,LiDG (200) ,CA (230) , ?.A ( 200) , 
1) 

/PAH1/ XDOT (2 CO) ,YDOT (2C0) ,2DCT ( 200 ) , HN UH , .'15 R 
CCHflON /PAR 2/ T (2C0) ,XGU N (7) , '^GU N ( 7) ,ZGUN’ (7) , XSAil , Y S AH ,ZS A H 
COaHON /CPT/ IGUN .IPiiCH , lEX? . I SA.'l , IH P , K H R 
CC:3HON /NAM/ INAM ) (2) , IN A.12 (2) ,lU:Vn, IAN?,IDEST 
DIMENSION XT 0 l20J) . Y 10 (230) 

DIMENSION 3CSTAE ( 10 0 0) , 1 1 NK (1 C) 

DIMENSION VAT1N2 (208) //AT3 (20c) ,7\T5 (208) 



VEI (2C0 



VULNERABLE AREA TABLE VS TYPE 1 ANL 2 ’^SAPCNS 



DATA 7AT1 N2/2*.4o 45 ,6*7,107,2*.6 563,6*5 .551,2*.o9od,6^5,574,2».6 56 
18,6*7,357,2*.6S6a,D^5,574,2*.6Eoa,o*5.551,2*,6968,6«5.574,2^.656c, 
26 +7. J5 7 , 2*. 6968 , o*5. 574 ,2=>. 4645, o^. 7432,2^.6 5o 8-6*2. 35 8,2*. 4o45,b^ 
3J*2S8, 2*. 6 56 8 ,6*2.858,2* . 4b 45 fO*. 743 2,2*. 6568, 6*2 -j 58, 2*. 4b45 , o* 3. 
429B,2*.656o,o*2.c53, 2*. bSo8,6*5.551, 2*. o966, 6*3.574 ,2*.65o3 ,o*7. 35 
57, 2*. 6968,6*5.574 ,2*. 6568 ,b*5.551,2*.o968,b*5. 574,2 *.o5o8,o*7.j57, 
6 2*.d96 8, 6*5,574,2*.4 e45 , 6*7. 107/ 



VULNERABLE AREA TABLE IS TYPE 3 WEAPONS 



DATA VAT3/2*12. 54, 6*13. 47 , 2 *9. 5 53 ,6*10. 51, 2*9. 539, 6*11. 15, 2*1 2. 64, 
16*14. 78, 2 *^.639, 0^11. 15, 2 *9. 853, 0*10. 31, 2*9. 63 9, 6*11. 15, 2*12. 04, 6* 
214. 78, 2*9. 639, 6* 1 1. 15,8* 1.394,2*4.76 2,6*0.24 0,2*5.342,6*7.4 32,2*4. 
3762,6*6.240,8* 1.394 ,2*^ , 7b2 ,6*6.240, 2*5.34^,0*7.432,2* 4. 7o2,o*o. 24 
40, 2^ 9. 85 3, 6*10. 51, 2* 3. o39, 0*11. 15, 2* 12. 04 , 0*14. 78, 2*9. 63 9, 0*11. 15, 
52* 9. 85 3, 6* 10. 51, 2*9. 639, 6*11. 15, 2*12. 04, 6*14. 70,2*^.639, 6*11. 15,2* 
612. 54, 6*13.47/ 



VULNERABLE AREA TABLE VS TYPE 5 WEAPONS 



DATA VAT5/3*35.J7 ,3*43. 22 ,8*47. 10,8*02.53,8*4 7. 10, 3 *4 j. 22, 3*47. 10, 
18*62.5 3, 3*47- 10, 8*5. 761 , 8*27. 45, o*i3 .07 ,3*27.4 5,8*5. 7o 1,8*27. 45 , 8* 
233.07, 3*27.4 5, 8*5.76 1,8*4 7. 1 0,8*62. 5 3,8*4 7. 1 0,8*4 3. 22,8*4 7. 10,3*62 
3.53,8*47.10,8^55.37/ 



HACAR CROSS SECTION TABLE 



DATA RCSTAB/1 9* ICOO. ,19*1 00 ., 19*10. ,19*10. ,19*10. ,19*1 00. ,19*1000. 
1,367*0.0/ 

CALL EERSET SUPPRESSES ANY POSSIBLE UNDERFLOW PROBLEMS THAT MAY 
RESULT FROM MANIPUIAIICN OF SCENA5IC PARAMETERS. 



CALL ERRSET ( 2 C 8 , 50 , - 1 , 1 , 1) 
JAM-0 



CAED 2 TIME INCREMENT CALCULATION 
TINC=T (MNUH) / 1000. f 0.00 0 8 
CARD 6 TIME INCREMENT CALCULATIONS 



TINKI=0 
DO 10 1=1,9 

TINK (I) =TINKI*T (MNUM) /10 
TINKI=TINK(I) 

CONTINUE 



/////***** PUNCH PROGS AM*****///// 



OPTION TO PUNCH THE P001 CARD DECK OR MICE-II CARD DECK 
IF (IPNCH.EQ.2) GO TO 30 
COMMENCE PUNCHED OUTPUT CF THE ?001 CARD DECK. 
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C XHl JCL CA5DS. 

C 

WEIT2 (18,60) IN AM ( 1) , IN AMI ( 2) ,IUNH ,IANR,INA:11 { 1 ) , INA Ml ( 2 ) , IU N 3 



WEIT2 (18,60) 1 


IF (IUESl.iQ.2) 
WElfs (16.30) 


WHITS { 


18,90 


WRITS i 


18,100) 


WHITS i 


18, 110) 


WRITE ( 


; 18,120) 


WRITS i 


:i3;i3o) 


WRITS 1 


[18,140 


WRITE 1 


18,150 


WRITS i 


[18,160) 


C LEADING BLANK DATA 



C 

C THE COTPUT TITL2 CARC. 

WRITE (18,190) 

C CARD 2 

WHITE (18,170) 

WRITE (18r20u) T(KNUK),TINC ^ 

C THE 2A CARDS ( MI L £ SIC NE5 ) . 

DO 20 I=1,MNUM 

WHITE (19,210) 1(1) ,X(I) ,Y(I) , Z ( I) , X DCT ( I) ,^DOT(I) ,ZDOT(I) ,HDG(X) , 

1CA (I) , RA (I) 

20 CONTINUE 

WHITS (18,230) 

C CARD 3 (GUN EMPLACEMENT CARD) . 

WHITE (18,2^0) XGUN ( 1) , YGUN ( 1) ,ZGUN( 1) 

Q 

C CABD 4 (GUN TYPE) . 

C — 

writ: 

HRi: 

c— 

C CARD 5 _ _ _ 

WHITS (18,180) 

WHITS (19,260) 

C CAED 6 

WHITS (18,270) 

WHITS (18,230) (IINK (I) ,1=1 ,9) 

C CAHD 7 (VULNERABLE AREA TA3LS VS TYPE 1 
C — 



[TS (18,220) 
:rs (1 8,250) 



AND 2 WEAPONS) 



C— . 



WHITS (18,290) 

WHITE 10,300 

WRITE (18^310) (VAT1N2(I) ,1 = 1 ,208) 



C CAHD 12 (SXSCUTS RUN) . 

C EXTENDED OUTPUT OPTION 

Q 

WHITS (18,320) 



C 



IP (ISXT-NS. 1) 
IP (ISXT.EQ. 1) 



WRITS (18,340) 
WHITS (19,330) 



C THE HEMAINDE5 OP TEE CARDS INTRODUCE NEW GUN LOCATIONS, GUN TYPES 
C AND VULNERABLE AHZA TABLES TO BE EXECUTED BY ThE PROGRAM. 

C 

WHITE (1 8,230) 

WRITS (1 8,24 0) XGCN (2) , YGUN (2 ) ,ZGUN (2) 

C EXTENDED OUTPUT OPTION 
WRITS (18,320) 

IP (ISXT.NE. 1) WHITE (18,340) 
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RBITE (13,330) 

XGU;j (3) , EGON (3) ,2GUN( 3) 



IP (I3XT.EQ. 1 
MBirS (16,230 
WHITE (18,240 
WRITS jie,220i 
WBIT2 18,350 



SXTESCEC OUTcOT OHTICN 



WRITE (18,320) 
IP (IEXI-NE.1) 




1 B , 340) 


IP (lEXT.EJ. 1) 




Id, 3J0) 


WRITE (18,230) 
WHITE ( 18 , 440 ) 


XGUN (4) 


, G UN ( 4 ) 


NDED OGTEUT OPTION 


WHITE (18,320) 
IP (lEXT.NE.I) 




18 ,340) 


i.RIT£ ( 


IF (lEXT.EQ. 1) 


waiTZ ( 


18 , 330) 


WRITS (18,230) 
WHITS (18,240) 
WRITE (16,220 
WHITS (18,3o0) 


XGUN (5) 


, TGON (5) 







CAHD 7 (VOLSPHABLP ASEA TABLE VS I7?S 3 WEAPONS) 
HSITS (18,2?:)) 

(VAT3 (I) ,1=1 , 2C6) 



WRITE (18,400) 
WHITE 08,310) 



EXTENDED OUTPUT OFTICN 



WRITS 1 
IF iizi 
IF (123 
WSITS \ 
WRITS ( 
WRITS 1 
WRITS ( 


8)^351 

|l8,220i 
[1 B ,370) 


WRITE (13, 340) 

1 '<• 3 1 T E (13,330) 

1 

1 XGUN (6) , YGUii (6) ,2GUN (6) 

1 


SXTENDSD OUTPUT 0] 


?TICN 


WRITS 1 
IF (IS3 
IF ]IS) 
WRITS 1 
WRITS 1 
WRITS i 
WHITS 1 


[18,320) 

St.Se. 1 

(T.EO. 1 
(10,230) 
[18,240] 
[18,220 
[ 1 8 ,360] 


1 waiTE (18,340) 

1 WHITE (18,330) 

1 XGUN (7) , TG ON (7 ) ,ZGON (7) 


CARD 7 (VULNERABLF AREA TABLE VS TYPE 5 WEAPON) 


WRITS 1 
WRITE 1 
WRITS 1 


(1 8,290] 
18,410 
(18,310 


I (VATS (I) ,1=1 ,208) 


EXTENDED OUTPUT OPTION 


WRITE (18,320; 
IF (lEXT. SE- 1 
IP JlSXT-EQ. 1 
WHITE (1 8,390! 
IF (IPNCa -EQ 

FORMAT STATEMENTS 

0 CONTINUE 


I WRITE (18,340) 
I WRITS (1 8 , 330 ) 

• 1) RETURN 



CCaHENCE POHCEED COTPUT CF THE aiCE-II CARD DECK 



. CHECK FOR VALID ffISSILE DESIGNATION NOaBEB FOB 3ICS II 
IP (ISAa.LE.7.AND.ISAa.GE.1) GC TO 40 

HEIUaS 



THE JCI CAEDS 
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non n onom non non non ono non non nnnn non 



C-- 

40 



WRITS (17^420) INA:12 (1) , I :U .i2 (2) , lU H B , I A NH , I ii A M2 (1) ,INAM2 (2) , laWR 
IF (lOiST.SQ. 2) WRITE (17,430) lUNH 



WRITS 

WRITS 

WHITE 

WRITE 



[1 7,440) 
17,450 
17,460 
1 7,470 



THE OUIPOT TI'ILS 



WHITS (1 7,480) 
WRITS IM,I490) 



THE PHCBLSM BUN INBUT CARDS, CHECKING FOR TYPE Or MISSII 
TC INPUT TO MICE II 



WHITE (17,5001 
IF (IS AM- £0.1 


1 WRITE 


(17,670; 


IP 


(ISA.1.EQ.2 


1 -RITE 


(1 7 ,680 


IF 


(IS AH.ZQ. J] 


( WRITE 


(17,o90; 


I? 


(ISAfl.EO.i*] 


1 WHITS 


(17,700 


IP 


(I3A-1.£0.5| 


[ WRITE 


(17,710 


IF 


(ISAa -£ 0 . 6: 


1 WRITS 


(17,720 


IP 


(IS Aa. £0- 7! 


) WRITE 


(17,730 



THE PSSK CALCOLATICN CARCS 



WHITS 


(17,510) 


WRITE 


(17,520) 


RADAR 


CROSS SECTICN TA3 IS 


WRITS 


(17,530) 


WRITS 


(17,54o5 


WRITS 


(17,550) 


WRITS 


h 7,5 oJ) 


WRITS 


(1 7,570) (RCSIAo(I) ,1 = 



THE SI3ULATICN TIME PABAMETZRS 



WHITE 

WHITS 



(17,580) 

( 17,5905 



TEE aiSSLS LAUNCHE5 LCCATION 



FTFAC=3. 28084 
WRITS (1 7,600) 

XFSArt=XS AM*FTf AC 
Y?SAM= YSAM*FTF AC 
2FSA5=2S AM*STFAC 

WRITS (17,610) YFSAM ,Y?SAf, ZrSAH 



THE TAHGST THAJECTC3Y 



WRITS (17,o20) 

WRITS (1 7,630) MNCfl 



THE aiXSSTONE CARDS 



DO 50 1=1 ,MNDfl 
X (I) =X (1) *FTF AC 
I I) =Y (I) *FT?AC 
Z (I) =Z (I) ^FTF AC 
7EL (I) =VEL(I) *FTFAC 

WRITE (1 7,b4 0) I (I) ,X (I) , Y(I) ,Z (I) ,7EL (I) ,CA (I) , RA (I) , HDG (I) 
0 CONTINUE 



END OF PONCHEI CARDS 



WRITS (17,650) 
WRITS (17,b60) 



aETURN 

/////***** FCRMAI STATEMENTS ♦***♦///// 
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I 



I 

i 



60 

70 

80 

90 

100 

110 

120 

130 

lao 

15u 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

320 

330 

340 

350 

360 

370 

380 

390 

400 

410 

420 

43u 

440 

450 

460 

470 

480 

490 

500 

510 

520 

530 

540 

550 

560 

570 

580 

590 

600 

610 

620 

630 

640 

650 

660 

670 

680 

690 

700 

710 

720 

730 



fob:ut 

FORMAT 

FCfi.^AT 

FORMAT 

FORMAT 

FORMAT 

FORMAT 

FORMAT 

FCRMAT 

FORMAT 

FORMAT 

FORMAT 

FORMAT 

FORMAT 

FORMAT 

FORMAT 

FORMAT 

FORMAT 

FORMAT 

FORMAT 

FORMAT 

FORMAT 

FORMAT 

FORMAT 

FORMAT 

FORMAT 

FORMAT 

fCRMAT 

FORMAT 

FCSdAT 

FORMAT 

FORMAT 

FORMAT 

FORMAT 

FORM.iT 

FORMAT 

FORMAT 

FORMAT 

FORMAT 

FORMAT 

FORMAT 

FORMAT 

FORMAT 

FORMAT 

1) 

FCRMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
160,, /, 7 
24H130, , 
FORMAT 
1 , 3K90. ) 
FORMAT 
FORMAT 
FORMAT 
10 .) 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
END 



(2H//,2A4,6H JOB ( , I 4 , 1H , , 14 , 2H) , , 1 H » , 2 A4 , 1 H ,I4,2H?' 
( 1^H//*MAIM CrG=NPGYMl . ,14, IHR) 

(IbH// HXfC PGM=?1AD) 

4 2H//STEPLIB DD D IS?= SHR , DSN =MS S. F05 59 . 21 ?S A V) 
47H//GC. r'107F00 1 DD 0 NIT = S Y S D A , S? AC£= ( CY L , ( 1 , 1 , ) ) ,) 
(4 1H// r.CE=(REC?M=VBS, LRECL=4 04 , 3LKSI =i 23o ) ) 
(22H//GC. FT09F00 1 DD DU^HY) 

I 25H//GC.FlG6r00 1 DD SYSOUT=A) 

18M//GC. iTCSrOO 1 DD ♦) 

1 1111 , 1 ,0 ,C, G ,0) 

2H01) 

2H02 

2M05 

(42H AIRCRAFT COMBAT SORVIV ABILITY SCZMASIO) 

(7H0, 1 2,0 , ,F7. 2, 9H , 10U CCO- , , ? 7.4 , 1 H/) 

10(F7. 1, U) ) 

2HJ4) 

2H03) 

(3j1X, F7. C) , 1 CH 0.0,360.0) 

[19H0, 1, 1, 1,1 ,1,0.0,50.) 



\IW 

|3H1^9 ,9 (1 X,F7.3) ) 

! 49H VUi;j£HA3Li ASZA TA3L2 VS TVfS 1 
8f3. 3) 

2H12) 

13ri1, 1 , 1, 1, 1 , 1, 1) 

(13HO,0,0,C,1 ,1, 1) 

20H0,2, 1, 1, 1,1,0.3,50.0) 



A:.'D 2 WEAPON’S) 



2 CHO, 3, u, 4, 1,1, 0.3, 50.0) 

[^CHO, o,j, 4, 1, 1,v.0,o0.u) 



WEAPONS) 

WcAPC.J) 



(2C30, 5, 3, 2, 1,1, 0.0, 50. 3) 

2H/*) 

(439 VUi;.'F?A3L~ ASIA TABLE VS 7YP: 

|42H '.ULNEPASLE .^3SA TA3LS V3 TY?: 

(23//, 2A4,6H 006 ( ,14, 1H, , 14 , 2H) , , lii’ ,2A4 , 111 ,I4,2H?') 

( 19h//*!;ai.n oe('t= Npsvai . ,i4, i h P) 

(28H// EXEC ?Gi'!=iIC2, 3EGIO;.= l 6CK) 

(44H//STEPLI3 DD D S:i= «SS. F055 9. HICSS A V, DI3? = S HH ) 
(23H//ETC6EOO 1 DD SYSCCT = A) 

1 15H//FTC5F00 1 DO ») 

|2h01 ) 

(55’dAE 325 1 •«»«SL'a7IVAarLI TY SCENARIO***** 5 AH ENCODtlTER 

I 2802) 

2H06 

9X,1KO,8X,2HO.,9X,laO,i4X,lHO,4’X,1HO,8X,2HO.,3X,2HO.) 

2H08) 

7X, 3H23. , 3X , 2819, 4X , 18", 4X, 1 Hi) 

(ex,2KO.,7x,3810.,7X,3a20.,7X,3H30.,7X,3H40. ,7X,3H50.,7X,3H 
X,3H70.,7X,3H60. ,7X,3a9C.,oX,4ai00.,oX,4H11U.,6X,4H120.,oX, 
/,bX,4H140.,6X,4H150.,6X,3ai60,bX,4ai70.,OA,4H1d0.) 
(bX,4H-90. ,bX,UH-bO. , bX,4H-30 . , 6X , 280 . , 7X , 3830 . ,7 X , 38 bO. , 7X 

(7F10.2,/, 7F1 C-2,/,5F10.2) 

(2809) 

(7X,3fl0.5,7X,3H0.1 ,7 X , 383. 0, 7 X ,3 HO . 0 , 8X , 2 80. , 7X ,3830 . , 8X , 2H 
(2811) 

(2X, F8. 2, 2f 10.2) 

(2H12) 

(9X, 1 a 1 , 2X,I3,4X , 

(F7. 1 ,4F10.1 ,3F6. 

[2820 






1H1,4X,lH0,3X,2a0.,3X,2H0. ,3X,2U0. ) 
1 ,4 X, 2H0. ,4X ,2H0. ) 



(9X,1H1 ,4X,iai ,4X 
(9X, 1 82 ,4X , 18 1,4X 

1 9X,1H3,4X,1H1,4X 
9X, 1 H4 ,4X, 18 1,4X 
9X,1H5,4X,1H1,4X 
9X, 1 86 ,4X ,1 U 1 ,4X 
9X, 1 87 ,4X, 18 1,4X 



,1HU,4X,1H1,3X,2alO,4X,1H1,4X,1HO) 
, 184, 4X, 181 , 3X, 281 0,4X , 1 '8 1 , 4X, IHO) 
, 1H4 , 41,181 , 3X, 281 0, 4X, 1 Hi , 4X, 180) 
, 1H4,4X,1H1,3X,281U,4X,1H1,4X,1H0) 
, 1H4 , 4X, 181 , 3X, 2H1 0, 41, 1 HI , 4X, 1HU) 
, 18 4,41,181, 3X, 2810, 4X, 181, 4X, 180) 
, 18 4, ul,lHl, 31,2810,41,) a 1,41, 180) 
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i 

I 

I 

i 

\ 

I 



non nnn non non ooo non nnn 



C BLCCK CATA 



I 4c 4i 4c^ 4c 4c *4c 



BXCCX DATA 

COMMON /HN1/ MINX ,MA XX, MX ST ,MAXY,MI!IX1 , MAXX1 ,MINX2, 3AXX2 
COMMON /£EP./ fli(£HX(3) ,MKc3X (2C) 

COMMON /PAR/ X (20 0) , X (2 00 ) , 2 (200) ,HDG (200) , C A (2 JO ) , R A ( 200 ) , TEL (200 
1) 

COMMON /PARI/ XDCT(200) , X DOT (200) , 2D CT ( 200 i , MN UM , MB3 
COMMON /rAR2/ T(^OO) ,XG J N (7 ) , X 00 N (7) ,^G0N(7) , X3 A.1 , i SAM , 20 AM ,02 ( 7 ) 
COMMON /f AaJ/ TMD.ACLIET.CLMA X,NL,rM AX , C Dv) , C DM , 7M AX 1 ,TMAX2 
COMMON /PAR4/ A P P M AX , HI M I S, HI M AX , 0? D MIN ,0 M AX , ?0? MIN 
COMMON /TAR/ TARGX, TAROT 



MAE SIhDO« X COORDINATES 



DATA MINX/100/ 
DATA MAXX/3700/ 



ALTIMETER WINDOW X CCCRDINATES 



DATA Mi;iX1/J725/ 
DATA MAXXI/39 25/ 



EfiCMETi:iG WINDOW X COCRCINATES 



DATA MINX2/3950/ 
DATA MAXX2/40CC/ 



COMMON Y COORDINATES FOE THE THREE WINDOWS 



DATA MINT/400/ 
DATA MAXT/2SOO/ 



ESuCS MESSAGE COORDINATES 



DATA MKEHX/64C,34C, 10/ 

DATA MKERY/16C, 140,1 20, 100, 30, 60, 160, 140, 120, 100, 80, 60, 160,140, 120 
1, 1CQ,3O,6C,18C'u0/ 



PHEDETEEMINEC WSAECN EMPLACEMENT PARAMETERS 



DATA XGUN/14800. , 162C0. , 1 EsOO . , 1 JUOO . , 1 1 30C. , 1 56 00. , 12 800 . / 
DATA TGON/9000., 8200., 720 0. .8000., 97 00., 10 900., 7500./ 

DATA ZGUN/40. ,4C. ,20.,20. ,5j- ,9C.,20 ./ 

DATA XSAM/12000./.TSAM/6000./,ZSAM/5 0./ 

DATA GR/ 1000. , 1000. , 1400. ,1400., 2500.,250C., 2500./ 



SISOLATION PARAMETERS 



DATA CLMAX/1 . /,WL/100./,SPDMIS/90./, GMA X/6 ./ , H TMI N/60 . / 

■ ^MAX/0.4/,C ' ■ ■ ' " 

’MIN/600C./ 



DATA HTM AX/2 05 0- /.AFP MAX/45 7./, 7 MAX/ 0 . 4 /, CDO/0 . 0 1 5/ , CDK/0 . 1/ 
DATA VMAX1/26 0./, 7MAX2/3 10. /, Pfpx 



DATA TARGX/1 4CC0. /.TARO T/7220 ./ 
END 



141 



APPENDIX G 



PROPOSED IBMPIP LISTING 



C MAI2I FaOGRAa 16/.'^Afi/84 VZ5SlO?i 

C CCNIECLS THE EXECUTICN CF THE ENTIRE PROGRAM. 

C TEI3 IS THE PROPCSEC :10 21? ICATION OF THE JOHNS* 

C II WILL WORK FOR SC.1E CASES 3UT NOT FOR EVERY 

C CASE. THE FLIGHTFATH PACKAGE (3IGCAI PACKAGE) 

C IS ALSO LISTED SEFAHATELY AS T11 FORTRAN. THE 

C in PRCGRAJ IS SET UP TC -BITE TO FILE AND 

C CCES NOT CONTAIN ANY ;RAPKICS DEPENDENT CALLS. 

c -- 2. A. 16 :iAR 8 a -- 

COHHON /HN1/ iNIN X 'iA XX, MI NY .MAX Y, MI N X 1 , 2 AX X 1 , MINX 2, MAXX2 
COMMON /ICC/ XI ’il ,C1,V1 ,i7K,LT£2 
COMMON /MN/ IcAUD 

COMMON /AEC1/ * X { 1 0 0 0) , N Y {1 0 0 0 ) , V 2 ( 1 C 0 3 ) , X U ( 1 0 JC ) , W V ( 1 COO ) , N 4 ( ICCO 
1) , (1 000) , N? ( 100 3) , /iH { 10J0) , {1 COO ) , I (1 0 03) , ICT 

COMMON /ADC2/ XN E - X I£MF , XO LD , i NE’/* , I TEM P , Y OL D , IN E N' , ZTEMP , SOLD 
COMMON /AED2/ VS IAIl ,VMA X ,7 MA A 1 , 7MAX 2 , D ELT Ez, DiLTV , DELTA2 
COMMON /PAR2/ X GO K ( 7) , Y G 0 N ( 7) ,ZGUN{7) , X3AM , X SAM, ZSAM ,GH (7 ) 

COMMON /OPT/ IGUN .IPNCH , lEXT , ISAM,IM F.KEH.IMPZ 
COMMON /NAM/ INAM1(2) ,INAM2(2) ,I0NR, IANR,xDESr 
COMMON /lAR/ lARGX.TAP.GY 
CALL EHRSET ( 20 7 , 2b6 , - 1 , 1 , 20 9 ) 

ICT — P 

VHAX=7MAX1 
CALL 3EGIN 
CALL SCENE (0,0) 

REWIND 1C 



: DRAW THE FIXED GUN SITE 


0 ITS ENGAGEMENT CIRCLE 




CALL G UNLCC (XGUN (7) 


,nON (7) ,G5(7)) 




IGUN = 1==> READ USER DEFINEABLE GUN SITES FROM TERMINAL 


IF (IS UN.NE. 1 ) GG TC 


-.0 




: READ COMMENTS IN WINDOW: 


GRAPHICS INITIALIZER 




CALL WIN (MINX,MAXX, 


18303.,12GC0. ,3) 




: GSLI DEFINES THE TYPE OF 


LINE TO ££ DRAWN: SOLD, DASHED ETC. 




CAIL GSLI (1) 






: GEGARC DRAWS ARCS AND IF 


SPECIFIED, WHOLE CIRCLES 





10 



20 



30 



C 



CALL GEGAHC ( 3 C C 0 . , 3 000 . , TA RG X ,TA RG Y , 1 . , 1 . , 2 . ) 
CALL GSLT (0) 

CALL GSFBC:^ 

I£BE=16 

CALL HRRCK (lEHR) 

DC 40 1= 1,0 

CONTIN UE 
IEHR=0 



IF (IMPZ.NE. 1) GG 
CALL XYPT 



ro 20 






= 20 . 



2GON I 
GO TC 
CONTIN UE 
CALL XYPT 
CALL ZVPI 
ZGUN (I) =21 
CONTIN US 
XGUN (I) =X1 
YGCN (I) = Y1 



C IF GUN TYPE 3, CHK FOR 3 KM SEPARATION FM BRIDGE 

I? (I.GE.5) CAil GUNCHK (X1,Y1,IEHR) 

IF (ISBR. NE. 0) GO TO 10 

C DRAW GUN SITE AND ENGAGEMENT CIRCLE OF SELECTED GUN3ITES 

CALL GUNLCC ( X GUN { I) , YGU N (I) , GR ( I) ) 

WRITE (1 C,25 0) XGCN (I) , YG UN (I) ,ZGU:i (I) 
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I 

I 



I 

i 

i 

I 

l 






40 CONTINUE 

C READ USER DEFINEABLE EArt SITE 7W lES^INAL 

C 

50 CONTINUE 

IE5R=1U 

CALL £RB«K (IE5R) 

Ir (IhPZ. NE. 1) GO TO 60 

CALL XXPT 

SSA^=^0. 

GO TO 70 
60 CCNTINUE 

CALL XYPI 
CALL TVPT 
Z£A.^*=Z 1 

70 CCNTINUE 

XSAH=X1 
YSAM=Y 1 



C VERIFY SAB SITE AT LEAST oKB EB WESTERN SOUNDAaY 

CALL S AMCRK (XI, lERH) 

IF (lEHR .N2. J) GC TC 50 

C DRAW SAM SITE 






CALL GUNLCC 

WHITE (10,250) xsa:-, YSAM,Z3A:1 
GO TO 12C 



C 

C IGUN = 2=^=> READ GUN SITES 7RCB DATA FILE 

C 

80 CONTINUE 

IF JIGUN.NE. 0) GO TO 100 
DO 90 I=1-b 

READ (10,^50) XGJN(I) ,ZGUN^X) ,ZGUN(I) 
90 CONTINUE 

READ (10,250) XS AB , YSAM , E 3A M 



C DRAW GUN SITES ANC ENGAGEMENT CIRCLES 

100 CONTINUE 

DO 110 1=1,5 

CALL GUNLCC ( X GU N (I) , YGU N (I) r G? ( I) ) 
no CONTINUE 

CALL GUNLCC ( XS AM , YS AM , 1 5 0. ) 

120 CONTINUE 
C 



C THIS SECTION ACCEPTS THE F 

C 

IERR=1 5 

CALL EFRMK (lEER) 

REWIND 11 

C READ MILESTONES FHGM TEE DISK 



GHT MIISSTCNES 



130 



C- 
C 
C 
C 
C 

c 

c 



IF (IMP-NE.O) GC TO 1U0 

^ aOD^ I 1 1 ^2b0^ TjICT} ,WX^ICT)^^WY^ICT^ ^WZ (ICT) , WO(ICT) ,WV(ICT) ,WW ( IC 
LTa2=LTR^ ' 



(ICT) , «n (ICT) , WG (ICT) ,LT& 



LTR=65 ==> CALL FCS AIM 

LT5=^66 ==> CALL FCH SOME RELEASE. ALSO ALLOWS INCREASED AIRSPEED. 
LTR-82 ==> CALL FCH PFCGhAM TEEMI^ATION 

LTB=83 ==> CALL TO HHSAK OFF liiPUT ROUTINE AND RESTART. MEANT TO 
ALLOW CHANGING MIND WHILE IN MIDDLE OF PROGRAM. 



IF (LTH. £0.65 .CR.IIB2.Eg. 65) CALL AT MPT 
IF (LT R. EC-bo. G5.iTE2.E«^. o6) VMAX = VM AX2 
IF (LTR. EC.32.C5.LTH2.EQ.d2. ANC. IMP. NE. 0) 
IF (LTR.EC.a3.C5.LTR2.EQ.83) GC TO 140 
CALL GRAFIX 
ICT=rCT^* 1 
GO TO 13C 

C READ MILESTONES FRCM THE TERMINAL 



GO TO 180 
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c— - 

140 



c 



CCJiTINOE 

CALL WIN (Ki:n , 18000 1 20C0. ^0) 

CALL GSLT M) 

CALL G2GABC (6 C CC. ,6 COO . , lAHG X ,TAaGY ^ 1 . , 1 . ,2 . ) 
CALL GSLT (0) 

CALL GSFSCE 
CALL XYPT 
CALL C7PI 



C COaPGIZ FLIGBI PAHArtLIZriS AND CHEC:< ?Cd 

C 

IERH -0 

CALL HHHC£K (IBPR) 

IP (lEHH.BQ.O) GO TO 150 
WHITS (6,270) 

WHITE (6 -280) 

HEAD (5,^) ICCS 

CALL PHTC:iS ('CLHSCBN ») 

IF (ICOR. NE. 1) GO TO 150 
CALL XYPI 



^CHS OR 



:om:ia:tds 



C WAYPOINT ACCEFTED, FIIL IN THE CGFVE 

C 

150 CONTINOS 

CALL rilGCAL 
ICT=ICT+ 1 

IF (XOLD. NS. X NEW. CS. YOLD. MS. Y NEW.OR. ZOLD. NS. ONSW) GO TO 150 



C— ■ 

C LTE=65 = = > CALL FOB AI.M 

C LT2 = 66 ==> CALL FCR 2C-M3 RSLSASS. ALSO ALLOWS INC2SASSD AIHSPSSD. 

C LTB = 82 ==> CALL FCF FFOGFA.l TER?1INATION 

C LTR-63 => CALL TO BREAK OFF INPUT SOUTINE ANu SSSTAST. MEANT TO 
C ALLOW CHANGING MIND WHilS IN MIDOLS OF PROGRAM. 

IF (LT3-EC*65.Cr. . lT!'2.20.65) CALL AIMTI 

IF (Lr2.E0.o6.Cc'.LI?.2.Ev.66) VJ'AX^VM AX2 

IF LT3. EC-32.CB.LTR2.Sg.c2. ANU.IMP. NS.O) GO TO 130 

IF (LT2.E0.8i.CH.LTS2.Z^.P3) GC TO 160 

GC TO 14C 

C THIS SECTION RSSSIS THE DATA 

160 CALL SCENE (1 ,ICNT) 

HEWIND 19 

C DEAW HETAINEE rtILESTCNZS 

REWIND 11 

ICI=ICNT 

DC 170 1=1, ICT 

a SAD ( 1 1 ,260) T (ICT) ,WX (ICT) , WY (TCT) ,W2 (ICT) ,WU (ICT) ,W V (XCT) , WW ( IC 
IT^^^WH^ ICT) , WP (ICT) , -H (ICT) , WG (ICT) , LTH 

if" (LX3lEC.55.Cfi.ITR2.E0.65) CALL AI MPT 
IF (LTH. EC-oo.C5.LTfi2.EQ.bb) VMAX = VMAX2 
I? (LTfi. EQ.8 2 .Ca. LTR2.2Q. 32. AND. IMP. ME. 0) 

IF (LTH. EC-33.05. LXaS.EQ. 33) GC TO 140 
CALL GRAFIX 
170 CONTINUE 
GO TO IOC 



GO TO 180 



C THIS SECTION ISRMINATES THE FSQGfiAM 



180 CONTINUE 
LAST=IMP 

CALL ELFIN (LAST) 

C CONVERT ANGLES FROM RADIANS TC DEGEEES 



190 

C"- 



DO 190 1=1, ICT 
HH (I) =WH (I) ^3TC 
WP (I) =WP (I) *RTD 

wfi iiS = wa (I) ♦HTE 

CONTIN UE 
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C WaiTE THE JCL CAHOS 

IF (IPNCH-LI.1) 
IF (IPNC£.ZQ,2) 
3HTT2 (6,290) 
W5ITS (6,300) 
WHITE (6,310 
WHITE ]b,320) 



3TC? 

GC TC 200 



200 



210 



READ 15,4C0) INA31 (1) ,I NA:i1 (2) 
CALL F5TCM5 ( * CLSSC5N ' ) 

IF (IPNCH.EO. 1) GC TC 210 
WRITE 6,330) 



HEAD fb,400) 
CALL ^ETCES 



WRITE (6,300) 

WRITE (6,310) 

WHITE !6 ,320) 

' " INAi'12 n ) ,INAd2 (2 ) 

( * CL3£CE:J ' ) 

WRITE (6 .340) 

READ (5,^) rtJNH 

CALL FHTCdS ( ’CL5SCFN *) 

WRITS (6.350) 

HEAD (b,*) IAH5 

CALL FHTCdS ('CLHSC5M ’) 



C CHOOSE DESTINATION FOR OUTPUT: 
C- 



PRINTER 05 ttBACER FILS 



220 



WRITS (6 ,360) 
WRITE i6,370) 
READ (5, ’►I IDES 



{5, IDEST 

IF ( (IDEST. NE. 1) .AND. (IDEST . N E. 2) ) 
CALL FRTCdS (•CLRSC5N ») 



;0 TO 220 



C PRESET LOADS dICE/POOl DATA FILES CNTO USERS A1 DISK 

C 

CALL PRESET 



C DUdSY INPUT ROUTINE TC LET US^ /NCW WHE5E 3/HE IS IN THE PGd 

WRITS (6.3b0; 

HEAD (b,*) IGO 

CALL FRTCdS (’CIHSC5N ’) 

C 

C FORCE CALL TO CdS 
C — 



TO SUadIT DATA rlLES TO cATCH PROCESSING ?Gd 

IF (IPNCH.EQ. 2)_ GC TC 230 
CALL FRTCdS (’EXEC ' ’SUBdlT 
IF (IPNCH-ZQ.1) GC TC 240 
CALL FHTCHS (’EXEC 



230 
240 
C- 



CCNTINUE 



' SUofllT 



’ rOCI 
HICE 



* DATA 
’ DATA 



*) 



C DUaaY INPUT ROUTINE DC LET USER 



KNOW PGd TEFdlNATION HAS BEEN RE ACHED 



250 


WHITE (6 
HEAD (5, 
STCP 

FORMAT ( 


260 


FORMAT 


270 


FORMAT ( 


280 


FORMAT ( 


290 


FORMAT ( 


300 


FORMAT ( 


310 


FORMAT 


320 


FORMAT ( 


330 


FORMAT ( 


340 


FORMAT ( 


350 


FORMAT ( 


360 


FORMAT ( 


370 


FORMAT ( 


380 


FORMAT ( 


390 


1 FILE(S) 
FORMAT ( 


400 


FORMAT 1 




END 



*) IGC 
3F10.2) 

1 1 (f 10. 1 , IX) ,13) 

) 

54H DC YCn WANT TC FIX THE S HRO 3 : 0 = NO , US E THE POIN 
40H TO SUEHIT POO 1 TO HATCH YOU HUST CREATE) 

31H A JOB CONTROL LANGUAGE ’’CARD”.) 

51H ENTER A NAdE — IT dAY CONTAIN 
(25H ♦♦DC NOT INSERT BLANKS**) 

' 44 ^ -- -- -- - 

46H 
46H 
41H 
3CH 

46d ENTER ANY 



T; 1=YES) 
UP TO 8 CHARACTERS ;) 



TO SOEHIT **:iICE** TO BATCH YOU dUST CREATE) 
ENTER YOUR USER ID NUdBSR — WITHOUT THE ”P”.) 
ENTER YOCR ACCT NOfBER -- PROVIDED BY THE PROF 
CHCCSE TEE DESTINATION FCR YOUR OUTPUT: ) 
IMPRINTER; 2=YOUR READER PILE) 

ENTER ANY **MUd3ER** TO SUBdIT YOUR POOI/dlCE, 
ENTER ANY **NUM3EB** TO TERMINATE T2PI?) 



.) 

14 H DATA 
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« rx * ^ ^ 



C SOEHOOTiyE BEGIN 

C THIS SuEEOOTINS IMTIALIZSS TH2 GBAPHICS AND RZQaZSTS 

C TE £ USES OPTIONS . 

SOHaOUTlNE BEGIN 

COMMON /OPT/ IGUN ,IPNCH , I EXT ,ISAM,IM I, X ZB, IMPS 
C READ ossa OPTIONS 

C 

CALL FRTCMS ( *CLRSCSN * ) 

10 WRITS (6,40) 

READ (5, ♦) IGUN 

IP ( (IGOtUNE. 0) .AND. (IGUN.AE. 1) . AND. {ICON, NS.2) ) GO TO 10 
CALL 7HTCMS ( ' CLRSCRN » ) 

IE {IGUN-NE. 1) GO TO 20 



20 



30 



C 



MBITS (6,50) 

MBITS j6-60 
HEAD (5,*) IMPS 
CALL 7RTCMS (*CLHSCRN ») 

MBITS (6,70) 

HEAD (5,*) t:iP 
IE ( (IMP .NE. 0) .AND. (IMP. 

CALL 75TCMS ('CLaSCSN ') 

WRITS (6,80) 

HEAD (b,*) XON 

IP { (KON.NE. 1 ) . AND. (EON. NE. 2) ) GC TO 
CALL PRTCMS (^CLRSCrN *) 

IP (KON .NE. 1) CALI CONCHG 



1 ) ) GO TO 20 



30 



C INI 

— — — 


TIALIZE 


THE GRAPHICS 




CALL DSINIT 




CALL GS 
RETURN 


£3S2 


40 


F 0 a 11 A T 


{5uil ;C;i2:C = D 


50 


f^RMAT 

1) 

FORMAT 

1t 

FORMAT 


(55a »* cacic 


60 


(55a JoN/SAS 


70 


(5Ca AiaCSAFT 


30 


FORMAT 

END 


(50H rLlGdT 5 



•AS SCREEN 



NEGATES HAVING TO GO O/SH TO I aS 

S ALTITUDS;1= FIXED TO 20M;2=USER D 

5Ca AIRCRAFT MILESTONE INPUT: 0 = DI3X FILS: 1=TSRM 

GAME PAEAMETSSS; 1 =D SFA JL T ; , 2= USS R I 



T OF GUNS 

ALIIMETSH 

SFINEABLE 

INAL) 

NPUT) 
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C oCBaOUlI'JE CONCHG 



C — - 



TEI3 SacEOCJTINZ ^LLO^’3 OPSHATOH CHANGES TO THE 
3i:iUIATION PAHAiicTEaS. 

E 4 ^ *4 444 V 4 ** 444444444 4 44 44 44*44 44 4*4 4 4 4 *ti4 4 4*4 44 4 44 

SC3R00TINE CONCHG 

COdflON /AED2/ VSTALL,V«AX //HA X 1 , V^AX 2 , 0 ELTEE , JELT V , T2LTC 
COHHON /ASEa/ IHdAX , ANH AX ,CLH AX, GEE, AK K , HH03 3 L , 4 L , C DO , CDK , AHEA 
CCHHCN /? AN4/ APE HAX , HI H I :i, HT HAX, 20? MIN , 3A ALT, 3RHIN , 3uHAX , 3ERHI N ,5 
IRHHAX, ETD.AHI? 

CCx'lftON /TAR/ TARGX,TAHGY 



C WEJTE INSTRUCTIONS 
C — 

10 



20 



30 



40 



50 



60 



70 



80 



90 



SPITS 

'WRITS 

WRITS 

WRITS 

WRITE 

WRITS 

WRITS 

WRITS 

WRITS 



1 6 , 190) 
6 , 200 ) 
6 210 
6 , 220 ) 
6 ,230) 
(6 ,240) 
6 ; 250 ) 
(6 ,260) 
6 ,270 



BEAD (5 , *) I 

IE ({X .IE. 0) .OR. (K .GT. 17)) GO TO 10 
GO TO { 180,20 ,3 C, 40, 50,5 0,7 0, 80,90, 1 00, 

1 ) , K 

WRITE (6 ,290) 

READ (5.^) cLhAX 
GC TO 10 
WRITS (6 ,290) 

READ {5,») WL 
GC TO 10 
WRITS (5,300) 

HEAD (5,«) 7SXALL 
GC 10 10 



1 10 , 120 , 130, 14G, 150, 160, 1 70 



WHITS (5,310) 
BEAD 

GC TO 10 



) A N H A X 



WRITS (6,320) 
BEAD (5,*) HTHIN 
GO TO 10 



WRITE (6,330) 
GC TO 10 



BEAD (b,^) HTHAX 



100 



1 10 



120 



130 



140 



150 



WRITE (6,340) 

BEAD (5,*) POPaiN 
GO TO 10 
WRITE (6 ,350) 

BEAD (b.*) APPSAX 
GC TO 10 
WHITS J6,360) 

BEAD (b,*) THNAX 
GO TO 10 
WHITS (6,370) 

BEAD (5,*) CDO 
GC TO 10 
WRITE (6,380) 

BEAD (5,^) CDK 



GO TO 10 
WRITS (6,390) 

{S.*) VHAXl 



BEAD 
GO TO 
WRITE 



^6 



(6 ,400) 
READ (b,») VMAX2 



GO_TO ' 1 5 

"i5 



WRITE J6,410) 

(5,^) TARGX,IARGY 



READ 
GC TO 



C BEAD NEW PARAMETER VALUES 

160 REWIND 16 

READ (16,450) 

BEAD (16, 450 ) 

HEAD (16,450) 



••ROH THE DISK 



CLSAX , WL. VSTALL.ANHAX. HTHIN, HTHAX 
PCPHin, APPH ;x ,THHAX ,c5 C , CD K , VH AX 1 
vMAX2,TARGX,rAHGY 
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GO TO 10 

C iSIT2 PASAaETEH VAICSS TC THE TZRtUlkL 
170 »RITE (6,^20) 

WaiTS (6 ,a50) CLHAX, nL, VS TALL , A N MAX , HT.'* i:; , X 
SHITE (6,430) 

WRITE (6,450) POP KIN, A??. 'I AX , T HK AX ,C0 C ,C DK , VK AX 1 
WRITE (6,4U0) 

WRITS (6,450) V«AX2,TARGX ,TARGY 
GO TO 10 



C 

C SAVE PABAaS 

C 

180 REWIND 
WHITE ( 
WHITE ( 
WHITE ( 
RETURN 
PCHaAT 
PORaAT 
FORK AT 
FORaAT 
PCSaAT 
poaaAT 
10 LIP 
PC SKAT 
PORK AT 
PCE3AT 
FORaAT 
FCa«AT 
FCaUAT 
FORaAT 
pce:iat 
FoaaAT 
fCHHAT 

i'CRaAT 
POPKAT 
FcaaAT 
POSaAT 
PCHaAT 
PCBaAT 
PORaAT 
PCRaAT 

^caaAT 
1 3AX 
POSaAT 

PoaaAT 
END 



190 

200 

210 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

320 

330 

340 

350 
360 
370 
380 
39 0 
400 
410 
420 

430 

4U0 

450 



TER VALUES CN DISK AND EETUHN TO CALLING ROUTINE 
16 

1 b ,45 0) CLK AX , WL , S?OaiN,GaAX , HTa IN , HTKAX 
16,450 PCEMIN,A?PaAX,TXAX,CDO,CCK,VaAXl 
16,450) VaAX2,TARGX,TAaGY 

) 

SEIECT PAFAaElER TC 3E CHANGED: 1=NO KORE CHANGES) 
2=KAX LIFT OOEFP; 3-4i:iG LOADING: 4 = STALL SPEED) 

5 = KAX G FORCE; 6=:KIN ALT; 7=1AX ALT (<2200 1T2)) 
d=CISTANC£ TO TARGET dEFCRE POPUP ALLOWED) 

9 = aAX APPROACH ALT; 10=L1AX I/W RATIO; 11=jRAG COEF. V 

12 = LIET DRAG CONSTANT; 13 = 3^ S? D WITH 3033) 

14-aAX SPD W/C 3CK£; 15=TARGET COORDINATES ) 

16 = ?.EAC PARAaETER FILE: 17=LIST PARAaETERS) 

ENTER aAX LIFT COEFFICIENT) 

ENTER WING LOADING) 

ENTER STALL SPEED) 

ENTER HAX G FCRCE ALLOWED) 

ENTER aisnua altitude) 

ENTER KARI.-iUa ALTITUDE (LESS THAN 2o03 RETEHS)) 

ENTER ai:.i:iua distance tc target before ?o?-u? allowed 

ENTER HAXiaua APPROACH ALTITUDE) 

ENTER aAX THRUST TC ^ EIG »iT ALLO. ED) 

ENTER CRAG COEFFICIENT FOR ZERO LIFT) 

ENTER LIFT DRAG CC^STANX) 

ENTER aAX SPEED CARRYING A 3Cad) 

ENTER aAX SPEED AFTER COaS IS RELEASED) 



ENTER TARGET X AND Y COORDINATES) 
HAX CL WING LD STALL SPD iNAX 



aiN.HT. aAX.HT. 



(75H PCP-UF CIST 
SPD WITH cCaB) 

(55H aAX SPD W/0 BOaS 

(6F12. 4) 



APPB.HT. aAX THRUST CDO DRAG CONSTANT 
TARGET X COORD. TARGET Y COOED. 
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C SUEBOUTINE SCENE 

C THIS fCCTINE D3ASS THE ATTACK .lAP AND ASSOCIATED 

C CISEIAYS. DUBING BESET IT OBTAINS THE LAST HILE- 

c «« »» «««* 

SOBHOUTINE SCENE (I2C,ICNT) 

CCH.“.ON /KNV KI.NX ,:iAXX, a INI , H AXY,HINX1 , NAXXI , aiSX2, HAXX2 
COaaON /KN/ I BAUD 

cor.aoN /ASCI/ iicooi ,vyjioco) , dzn cco) , /iiw loODi ,t; (uooi , (loco 
1) , «H ( 1 00 0) ,NP ( 1000) , «S( 1000) , NG( 1000) , T (1 0 Jj) , ICT 
COMMON /TAB/ TA5GX,TABGY 
DIMENSION V EL (200) 

VEL (ICNl) =SQSI (iU (ICNT) **2* W7 lICNT) » »2 + W W ( ICNT ) » * 2) 

GXfG£ 

LOGICAL *1CI1AR£(2C) 

ICNT=0 

C EfiASE THE TEK618 SCBcEH 

CALL GSEESE 
CALL DSTEr.:! 

C 

C READ OSER OP 1 10 N S : 5C R E ER AMD GU'A/lf.lSS POSITS OE FILL IM .^A? ALSO. 

C 

WHITS (6,100) 

HEAD (5,*) A Ac 

IF (IRC .HO. 0) GC TO 10 

WHITS (b,90) 

READ (S,’^) ICMT 

CALL FBTCMS ('CLRSCRM •) 

C 

C DBAii THE X Y MA? 

C TH2 ROUTIHE READS X,Y PAIRS F EO H FILE 09 • A -2.J,D INDICATES 
C SNC C? FILE, -0.5, j INlICATEE A :*10VE,ALL CTREE iALuZS AuE PC- 
C SIIIVE AND RESULT IN A DRAW TC THAI POINT. 

C RE-INI1IALI2E THE 1ES618 SCREEN 

10 CALL DSIMIT 

CALL WIN (HINX,:iAXX, 13000., 12CC0., 1) 

IF {«AP .FQ. 0) GC IC 40 
REWIND 9 

HEAD (9,80) GX,GY 
20 HEAD (9,80) GX,GY 

CALL GSVECT (0, ,v^,X,GY) 

30 BEAD (9,80) GX,GY 

IF (GX^L1,-1) GO TO 40 
IF (GX.LT. 0) GO TO 20 
CALL GBVECT ( 1 . ,GX,G ^^) 

GO TO 30 

C 3AHK THE TARGET: GDNLCC PUTS A + AT GUN/3ISS POSIT AND CIRCUHSCHI SES 

40 CALL GUNLCC ( T ARGX , T ARG Y , 150 . ) 

CALL GUNLCC ( T ARG X , T AEG Y , 30 0 . ) 

C DRAW TIC HARKS EVERY 2000 NTRS 

C 

DO 50 1^1,8 
IW=2*I 



C THIS BLOCK DBAWS TEE X-AXIS TIC HARKS 

CALL GBVECT ( 0 • , I* 20 00. , 1 00 0 • ) 

CALL G3VECT ( 1 . , I ^2 0 00. . 0 .) 

CALL GAXITC ( 1 , IW, 2 , CHA RS ) 

CALL GBCHAH { I * 20 GO, , 0. , 2 • , 0 . , 2 , CHA R S) 

C THIS BLOCK DEAWS TEE Y-AXIS TIC HARKS 

IF (I .GE. 6) GO TO 50 

CALL GBVECT ( 0 . , 1 COO . ^2 000 . ) 

CALL GBVECT ( 1 . , 0 . , 2 OOO . * I) 

CALL GAXIIC (1 #^rCHARS) 

CALL GBCEAR (-bO . ,1* 200 0 • ,2 . , 0. , 2 ,CH ARS ) 
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f 



50 CONTI'JOE 
I1 = .niNY 
l2=rtAXI 
KAXY=niMY-15 
ttINY=v1IN X-20 0 

CALL WIN (aiNX+275.i'lINX + 2200, 1S5.,185.^C) 

CALL G3CHAS { K. , 1 1 0 . ,2 . 5 ,0 . , 30 , ’ XS Y 2A5XS IN 2000 :!£TEH INTVLS') 
CALL G£CHAB { 1 G . , 40 . , 2. 5 , u. , 2 5 , ’ ZE20 DEGHEZ5 ALONG X AXIS*) 

CALL GSFSCI 
aAXY=I2 
£1INY = I 1 



DfiAW THE ALTI^IETZB 

CALL WIN {MINX 1,;iAXX 1,350., 22CC., 1) 
DO t>0 1 = 2.20,2 
CALL GB7HC2 ( 0 . , 0 . ^ I * 10 0 . 



60 



CALL GaVECT 
CALL GAXITC 
CALL G3CHAH 
CONTINUE 
DO 70 1= 1,6 
CALL GB7ECT 
CALL GcVECT 
CONTINUE 



l.',35fi. ,I*10b.) 

1 ,I,2,CI:AKS) 

0*, 1*100., 2. ,0., 2,CHAaS) 

(0. ,1*50 . ,1 00 .) 
(1.,I*50.,0.) 



70 _ _ __ 

C MARK aSSET POINT VELCCIIY AND ALTITUDE AS OPERATOR 

IF (ISQ.NE.O .AND. ICNT . GT . 1 ) CALL GcGLGT (3. 

MAXY=MINY-15 

MINY=MIN Y-200 

CALL lili; (MINX+2dC0, MINX*3900 , 195. . 1 85. . 0) 

CALL G3CHA3 ( 1 C . , 1 1 0 . ,2 . 0 ,0 . , 29 , • ALT MASKS 
riT.:. /iC-.nO ^ . o _ 1 1 . • VELO Im 5") 



CALL GSCEAR 

1 ) 

CALL GSrRCE 
MAXY=I2 



IN 

N 50 M/S 



AID 



, VEMICNT) , WZ (ICNT)) 



200 METER INTVLS*) 
IJTVL ALONG X AXIS* 



80 

90 

100 



MINY=I 1 

RETURN 

FORMAT 

FORMAT 

FORMAT 

END 



(2F10.2) 

(38K AT WHICH 
{3SH VILLAGE: 



POINT 
0= NOT 



DO YOU WANT TO RESTART) 
DRAWN; 1=VILLAGE DRAWN) 
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nnnnn nno non nnnnoon 






: -qe Xt ^ ^ ^ ^ 



SUEBOUTINE WIN 



THIS BOOTINE DEFINES A WINDOW EXTENDING FR0.1 LX TO 
CN TEE HOai::ONTAL AXIS, AND FROM :3INY TO .1AXT ON THE 
VERTICAL AXIS. THE HOHISONTAL BANGS IS RX , THE 
VERTICAL RANGE IS RY. 






SUSaOUTIIJE WIN (LX,.'lX,aX , RY, Jt-.F) 

COUPON /MN/ IBAUD 

CC.'iFiON /«N V tl INX,aAXX, ?! INY , AXY , 2!I N X1 , 3AXX1 ,MINX2 , :iAXX2 
BEAL^4 WANW4) 

INTEGEH’5'4 VT (4) 

DATA - AN 1 (1) /C , 5A N 1 (2) /O./ 



DEFINE THE WINDOW 



VI (2) =J1IN Y 

V 1 (4) =elAXY 
WAN1 (3) =fiX 
WAN! (4) ='HY 

VI (1) =LX 
VI (3) ={1X 

CALL GAS VIE (VI , J) 

CALL GASWIN (WAN 1,0) 

IF (J3? .Eg. 0) GC TC 20 



FLASH IHE DEFINED WINDOW 

ICNT=4>5C*IBADC 

DC 10 I=1,ICNT 

CALL G3VECT (C.,0. ,0.) 

CALL GBV ECT ( 1- / -^’AN 1(1), WAN 1(4)) 

CALL G3VECT ( 1. , ^AN 1 (3 , W ANl (4) ) 

CALL G3VECT ( 1 . ,..UN 1 ( 3) , W AN 1 ( 2) ) 

CALL G3VECT ( 1 . , /»AN 1 (1) , « aN 1 (2) ) 



YCU DO NOT WANT A “CALL GSFRCE” HERE. WINDOW DEFINES THE GRAPHICS 
PCBT CH "WINDCW" YCU ABE '*OPENING". THE OTHER SJ3ROJTINES ARE PASSING 
THINGS THROUGH THE OPEN WINDOW, "CALL GSFRCI" CLOSES THE WINDOW, 



10 CONTINUE 

20 SETUSN 

END 



151 



non nnnnon n noon nnnon non nnn noon 









SCBHOOIINE GCNLOC 

TEI3 SOHHOaTINE C2AWS 2F?EICTIVE FIHE 3ADIUS CIBCL2S 
AECOND THE DEFENSIVE AAA cATTEHIES. 






SOBSOUXINE GUNIOC (G2,3Y,5AD) 

CCBilON /KN/ lEAOu 

COa.'lON /«N1/ aiNX,:iAXX,NINY , «AXY^:UNX1 , aAXXI ,aiNX2, :i AXX2 

3EAL^4 X,Y,DX,£Y 

X=GX 



Y = GY 



IDENTIFY THE SAP ANC cLACE A '+< AI THE LOCATION 



CALL WIN fai 
CALL G3VECT 
CALL GSVtCT 
CALL GBVECT 
CALL GBVECT 



X,NAXX, 13JOO-, 
0* ,X-75. ,Y) 
1.;X475 'yJ 
0.,X,Y+75.) 
U,X,Y-75.) 



, 0 ) 



OfiAW A CIRCLE ABOUND TfcE SITE 
CALL G5LT (14) 

CALL GEGARC ( R A C ^ H A C ,X, Y , 1 . , 1 • ,2 . ) 
CALL GSLT (0) 

CALL GSF3CE 
5 ETURN 
END 



t * * 4c X i 






SUBBOUTINS XYFT 



THIS SLcROUrm CiT.MSS THE X AND i COCTOINArES 
AND CCaaAND FOR EACH DESIGNATED POINT (H I LES T ON E ) . 



SC3ROUIINE XYPI 

CC-HOW /ICC/ X 1,1 1,Z 1,V 1 , LTR, LTR2 

COaaON /MN1/ aiNX,dAXX, HI NY AXY , JINX1 , HAXX1 , HINX2, HAXX2 
CALL BELL 



FLASH 3AP AND GET X,Y ANC THE FI3SI CCHEANB 



CALL WIN {HINX,HAXX, 1300 0., 1 2CC0. ,1) 
CALL SPOT (XI , n ,ITE) 

CALL GSFRCE 
CALL BELL 
BETOSN 
END 



c 4C 



SOBBOOIINE 2VPT 

THIS SUBROUTINE OBTAINS THE ALTITUDE AND, DEPENDING 
ON THE CIRCUMSTANCES, THE VELOCITY OF THE DESIGNATED 
POINT. 



SUEEOUTINE ZVPT 

COMMON /LCC/ XI ,Y1 , Z1 ,V1 , IT 3, ITB2 

COMMON /MN1/ MINX,MAXX, M INY , M AXY , MIN X 1 , M AX X 1 , MINX2 , MAXX2 



FLASH ALTIMETER AN! GET 7EL,ALT AND THE SECOND COMMAND 



CALL WIN (MINX 1,MAXX 1,350., 22CC. 
CALL SPOT (VI , 21 ,LTH2) 

CALL GSFHCi 

RETURN 

END 



1 ) 
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> 4 4t ^ « W V « «« ] 






C SUBEOUTINS SFCT 
C 

c 



c 



THIS RETORNS AM X-Y PAIR AND A CO.'ILIAMD VALUE Li 
THE ROUTINE USO CREATES A DOT AT POINT X ,Y- 

♦ 3f.nt *^ * *^ * *** * Am ^ ^ ^ ^ ^ m* *** ^ * ^ * ^^ ^ ^* 

SUBROUTINE SPOT (X^Y,L1) 

H£AL*4 rX,TY,CCT 
INTEG2R»4 L,:3,CUT,KEY 



C READ THE CURSOR ANC PICK UP USER CCH.'IAND 

10 CALL GBR XYC ( K , I , KE Y ,TX , T Y) 

CALL GAXCTI ( 1 / ^ 1 . 1 . , OUT ) 

DOT=4Q. 

C 3ARK THE SPOT 

CALL GBGCCT (DCT,TX,TY) 

X = TX 
Y = TY 

C CONVERT THE CCU^IANC TC THE PROPER FORXAT 



L1=C 


) 










IF { 


[OUT. 


HC- 




L1 = 


= 65 


IF { 


OUT- 


, EQ. 




L1^ 


= 6o 


IF { 


[OUT. 


, EQ- 


3j 


L1 = 


= 62 


IF j 


[OUT. 


.EQ. 


•4) 


L1 = 


= 63 


RETU 


iRN 








END 
















[ Mm A n 



xAAmAmAmAAvTKm^AAmAAAAAm^AA 



SUBROUTINE GUNCHK 



THIS SUBROUTINE CFECXS GUN LOCATIONS \GAINST 
HXFLACS.IENT RULES. 

f m A * A A A *A A A Am A A A A A A aA A '• 



SU2ROUTINE GUNCHK (X,Y,IERR) 

COnHOM^TAR/ TARGX,rA3GY 

C COrtPUTE DISTANCE TC TARGET 

C 

DIST-SQRT ( (X-TARGX) **2 ^ (Y -T A SG Y) =*♦ 2) 
IEBR=0 

IP (DIST .GS. 3000.) RETURN 
IEHR= 1 3 

CALL 3RRHK (lEBH) 

RETURN 

END 



Q:#«4#4c4c4c4c««#4c4c4c:*«4c4t«444c:^4c* AAA i 

C SUBROUTINE SAMCHK 

C THIS SUcROUTINE CHECKS THE XISSLE 

C AGAINST GA:1E LIMITATIONS. 

QAA AAAAAAAAA A A AAAAA A A A A A A A AaA A AAA A A A AAAAAA J 

SUBROUTINE SAMCHK (X,ISRR) 

IESR=0 

IP (X .GE. 6000.) RETURN 
IEBfi=19 

CALL ERRMK (lEHR) 

RETURN 
END 



iinPLACEMEN' 
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I 



C SOBBOUTIN2 EfiBc'lK 

C THIS SUBROUTiriS SENDS PHCMPTS AND SRROR MESSAGES 

C 

Q**«4*»»*«*z««»*««****4*»«*«*S««*«#4»a*««***«*«*x*«**4*S*«>i*«***V*»***«* 

SOEBOOTINE ERBKK (lEBa) 

CCKEON /KN/ I2ADD 

ccaaoN /Accv vix ( lOOO) , -y nooo) , mzm ooo) , vur iooo) , « v (i ooo) , (looo 

1) ,SH (1 OOC) , «•? ( 1COC) , >13 ( 1000) , »G (1 JOO ) ,T (lOuO) , ICT 
coaaoN /KNi/ aiNX ,;iA>x, ax:;Y ,aAXY ,aiu xi , aAxxi ,aiax2, aAXX2 

C PLASH lUH EBCaPT liINDCW 

CALL WIN (aINX2 ,aAX X2,2700. , 1 cS. , 1) 

CALL USPECE 

GO TO (1 0,20, 3 0,40, 50, D 0,70 ,3 0,90, 10 0 , 1 1 0 , 120 , 1 30 , 1 40, ISO , 1 b 0 , 1 7 0, 
1180) , I5EE 
10 WHITE (6,200) 

GC TO 190 

20 HHITS (6,210) 

GC TO 190 

30 WRITE (6,220) 

GC TO 190 

40 WRITS (6,230) 

GC TO 190 

50 WRITS (6,240) 

GC TO 190 

60 WRITS (6,250) 

GC TO 190 

70 WHITE (6,260) 

GC TO 190 

30 WRITS (6,270) 

GC TO 190 

90 WRITS (6,280) 

GC TO 190 

100 WRITE (5,29C) 

GC TO 190 

110 WRITE (6,300) 

GC TO 190 

120 WRITS (6,310) 

GC TO 190 

130 WRITE (6,320) 

GC TO 190 

140 WHITS (6,330) 

GC TO 190 

ISO WRITE (6,340) 

GC TO I 9 O 

160 WRITE (6,350) 

GC TO iso 

170 WRITE (6,360) 

GC TO 190 

180 WBIIS (6,370) 

GC TO 190 

190 RETORN 

200 FCBBAT (25U NAXiaua ERAKING EXCEEDED) 

210 POBHAT (15H BAX G EXCEEDED) 

220 FCEHAT (12H ALT TCO LOW) 

230 POaaAT (13U ALT TCO HIGH) 

240 PORHAT (6H STALL) 

250 FOR3AT (15H PCE-OE TCO LOW) 

260 PCDHAT (13H BBE DBCP LOW) 

270 PORHAT (12H 3BB DBCP HI) 

280 PCEaAT (15U TCC BAB EH TGT) 

290 PORHAT (17H HDG>5 DEG TO TGT) 

300 PORHAT (19H PINAL RUN<2.33 SEC) 

310 PCEHAT (21H NC HCBIECNTAL HOTICN) 

320 PORHAT (17H TOC CICSE TO TGT) 

330 PCHBAT (23H ENTER 3IS3ILE LOCATION) 

340 PORHAT (26H ENTER AIRCRAFT BIIESTCNES) 

350 PCaaAT (20H ENTEB GUN LOCATIONS) 

360 PORHAT (2CH HAX THRUST EXCEEDED) 

370 PCBHAT (28U X COOBDINATE LESS THAN 6000) 

END 
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SUfiHCUTINr: BIGCAL 

THIi SCEBOUTINE CiEHATES AT A LEVEL BELOW MAIM 
FSCGEAM AMU ACTS AS A DBIVHR FOR THE SUBROUTIMES 
LISTED WITHIM. 






SCBROOTIME BIGCAL 
COMaOM /AECV WX( 1000),WY 
1) , WH (1 OOG) , WP ( 1 CGG) , «R(10 
CCKMQM /A£C2/ XMiW,D£LX,X 
IZTErtP, 20LE 

COMMON /ADC3/ VELCM , VELOT //ELCC, N /JM EW , BTEM? , GOLD, V M E'W , VTEMP, VOID, 
1WME'W,'WTEME, WCLL 

COMMON /AEC4/ AG 1 . AH 1 -AH ,A J 1 , A J2 

COMMON /A£D2/ VST ALL ,v:! AX , V MA X 1 , VM AX 2 , D ELT E S , J EL T V , D SLT2 

COMMON /AEE5/ F C ACC , AN , MCO NT 

N-0 



jjOOCK WZ^I OOC) ^WUjlOOOK WV(1 300) ,'WW (1000 
TEMP !!x^LD, Y Nii ^DELyI YTEM?^ YOLD, Z NEW , DELE, 



aco^4T=o 
CALL T FNF5M 
CALL NEWCLD 
CALL MVELCS 
CALL MVDCTS 
CALL DELVEC 
CALL TMPENT 
CALL T MPVSL 
CALL INRT&M 
CALL ANGLES 
CALL ROT9AT 
CALL ACTSM1 
CALL ACT3M2 
CALL ACTRM3 
CALL ACRVEL 
CALL ACACC 
CALL ACLMIS 
CALL XCHNGE 
CALL WAYPNT 
CALL FILE 
ICT = ICT+ 1 
5ETGRH 
END 



I 
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Q^m * i^m^f^*^*** * * * ^ * 4 * ^ *4- * * 4 9 4 ♦*«» 

SU3E0UIIM2 XSNFHil 

T5AlISfC3?1 TAKES THE SEAL VALOE VARIABLES SUPPLIED 
BY IHE GRAPHICS SOBRCUTINES AND LOADS TH£?1 INTO 
VARIABLES SPECIFIC TO THIS AIRCRAFT TRAJECTORY 
GENERATING PACKAGE. 



*4^mT4 -4 4 4 4 4 4 ft 4 44i 4 4 44 44 4 4 4 444 4 ’ 



4 4 



SUBROUTINE TENFRJ 

CCaaON /LCC/ X 1 , Y 1, 2 1,7 1 ^ ITR, ITS2 

COMMON /A EC 2/ XNES ^DELX , XTEMP ,XCLD, Y NEW ,D ELY , YTEMP, YOLD,2N£W , CEL2, 
1 ET M P COLD 

COMKON *"/A3C3/ VELCN, VSLOT ,7 E LC C , N ,U N EW , UT EMP /J OL D , 7 N EN //T EM P , VO LD , 
1 WN£W\NTEMF,NOLC 
COMMON /AEE5/ F W D ACC , AN , MCO NT 
XNEW=< 1 
YNEW=Y 1 
ZNE^?=Z1 
VELON= VI 
RETURN 
END 



I ji^:4i 40 ;»:4i 4c«]^ « 3 



SUBROUTINE NEWOLD 



NEWCIC GENERATES LENGTH VECTOR C01PONENTS DET^^EEN 
THE CURRENT '^AYPCrM (OLD) AND THE DESIRED .«AY?01NT 
USER HAS JUST ENTERED (Ulii) . 

i 4 44 44 4 444444 4 44 4 4 444 444 4 444 444 444 4 4 4 4444 44 



SOEROUTINE NEWCLC 

COMMON /AEC2/ XNE • ^DELX , X IE M P , XCLD, Y N £N ,DELY , YTEMP, YOLD, ENEW . CELZ, 
IZTEMP, 20LE 

COMMON /AEC4/ AG 1 , AH 1 ,AI 1 ,A J 1 ^AJ2 
COMMON /AEiS/ EN C icc , A ^ , M CO NT 
AG1 = XNEW-X0LD 
AH1 = YN £- -YOLO 
AI1=2NF «-20LD 

AJI^SQflT (AG1 *^2> At I 1**2) 

AJ2 = S0 RT (AG1 **2 + AH1 **2) 

RETURN 

END 
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SCBROOIINB rtVELOS 

aVELCS (MA? VELOCITY CO:iPCN£NTSI OETEHdINES THE 
VELOCITY COttFONENTS BETViEEN CORRENT WATPOIHT (OLD) 

ANC lEE JOST ENTERED ^AYFCINT (NEW) . THE SUBROUTINE 
CONTAINS A FLAG (N) TO AVOID RESETTING THE VELOCITY 
CCaPCNEiNTS UNTIL EITHER A NEW WAYPOINT IS RECEIVED 
OB AN AIRCRAFT LIMITATION .iHICN IS FATAL IS REACHED 
IN THE SU3SECUBNT INTSRATIVE SO BROIJT IN IS. THE 
CCCRLINATE SYSTEM IS TEHMED MAP, I-S,, Y POINTS NORTH 






4c4c«4c4c4c34 



SOEROUTINE dVELOS 

COMMON /ABC4/ AG 1 . AH 1 , All , A J 1 . A J2 

CCMlMON /AEC3/ VELCN, VELOT,VELCC,N,UN EW , UTS M? , UOLD , V NS W , 7T E M F , VO LD , 
1 WNEW, WTEMF,WOLD 
COMMON /A£i3/ rW £ ACC , AN , M CO NT 
M = N 

IE (N. GT.O) GO TO 10 
ONEW^VELON* (AG 1/AJ1 ) 

VNEW=V ELCN» (AH 1/AJ1) 

BNEW = VELON^ (AI 1/AJ1) 

CONTINUE 
N= 1 

RETURN 

ENE 



c « 4C ♦ 4c4t 



SUBROUTINE MVDOTS 






aVDCIS (MAP VELOCITY DOT COMPONENTS) COMPUTES THE 
LINEAR ACCELEHATICN COM PCNENTS 
IN MAP CCCRDINATES. (Y FCINTJ NORTH) 

SUBROUTINE MVDCI5 

COMMON / AEC2/ XNEW, DELX , I TEMP ,XOLO, Y NEW ,DSLY, YTSMP, YOLJ,ZNSW , CELS, 
IZTEMP, SOLD 

COMMON /AEC3/ V ELCN , VELOT , V SLOG , N , UN EW , UTEM? , UOLD , VNEW ,VTEMP, VOID, 
1 WNEW. .4T3MF, WOLD 

COMMON /AEC4/ A G 1 , A H 1 , A I 1 , A J 1 , A J 2 
COMMON /AEE1/ COOT , V DOT , W DOT 
COMMON /A££5/ f W C ACC , AN , M CO NT 
ACC= (VELON**2- VEIOO**2) / (2^AJ 1) 

U£OT=ACC* (AG1/AJ1) 

VDOT=ACC^ (AH1/AC1) 

WCOT-ACC^ (AI1/AC1) 

BETURN 

END 
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SOBHOUTINS CEL7EC 



DELVEC (DELTA 7ECTCHS) UTILIZES 3TAMDARD DYNABIC 
EQUATIONS TO GSNESATE LINEAR TRANSLATION INCRZilENTS. 
IT FUFTasa LOOKS TO SEE WHETHER THESE INCaE.‘!ENTS 



EXCEED THE DISTANCE LEFT TO GO TO 



THE NE/^ WAYPOINT 



SOEROUTINE DELVEC 

CO'-MON /A EC 2/ iN E W , DELX , XTE N ? , XCLD, Y NEW , D S LY , YT EH ? , Y CL E , Z N £V , DSL Z , 
1ZTEMP, ZOLC 

COHHON /AEC3/ VELCN, VELOT /JZLCC, N,DN EW , UT EH? /J OL D, 7 N EW , 7T EH P , 70L D , 
1 WNEi, WT£Hr,WOLC 



COHHON /ABCa/ AG 1 . AH 1 ,AI 1 ,A J 1 , AJ2 

/AED2/ VSTALL,7HAX,7HAX1, VHAX 2,DHLT£E,DELT7, DELTAS 
I COT 



CCHHON 

COHHCN /AEE1/ CDCT ’/ CCi. , ^ ou'.' 

COnaON /AEE3/ E«CACC,AN,HCONT 
DELX=UOLD*DSLTE5^‘.5*UDOT*CSLTEE^*2 
DE1Y = 7 0LC»DELT E£^-.5*VDOT^DELTEH<^*2 
DEL2=tfOLD^DELTEE+.5*WDOT^DELTE£*=^2 



IF 


(ABSi 


fCELX) .Gi. ABS (AG1) i 


( DSIX=AG1 


IF 


A3S 1 


EELY) • GT. ABS (AH 1) ] 


^ DSLY=AH1 


IF 


Iabs ) 


(CELZj .GT. ADS (AH) i 


) DEL2=AI1 


HETt 


IRN 






END 









S03ROUIINE TMPPNT 

THPFM (TSHPORARY POINT) GENEPATES A TEHPORARY 
FCSITION IN SPAC2 BASED UPON THE DELTA VECTORS 

****'it * if ^ *if *4f * it^if *** if^^* *'te M m *if 

S03HOUTINE THPPNT 

CCHHON /AEC2/ XN 2W , C£LX ,XTEHP ,XCLD, Y NEW ,D ELY , YTEHP , YC LD , Z N ZW ,Z£LZ, 
1ZTEHP, ZOLD 

COHMON /AEC3/ 7 ELCN , 7ELOT , V SLCO, N , UN EW , UTEHP , UOLD , V NEW //TE HP , VOLC , 
1WNEW, WTEHF.WOLC 

CCHHON / AtC4/ AG 1 ,AH 1,AI 1 ,AJ 1 ,AJ2 

COHHON /ABD2/ 7S lALL ,7HA X ,7 HA X 1 //HAX 2, DELTEE^ DELTV , DELTZ 
, CCHHON /AEE5/ F W E ACC , AN , H CO NT 
XT2HP=X0LC+DELX 



YT£HP= YOLE+DELY 

ZTEHP=ZOLD+DEI2 

IF (DELX. HQ. AG 1) 

IF (DELY. EQ. AH1) 

IF (D£LZ. £Q. AI 1) 

RETURN 

END 



XTEHP=XNEW 
YTEHP= YNEW 
ZTEH?=ZN £W 



158 



C SOflROUTI 
C 
C 
C 



NS T.'IPVSL 



T:1PVBI (TEMPOBAHji VELOCITY COMPONENTS) GENERATES 
THE VELOCITY COMLCNENTS ASSOCIATED aiTH THE TEMPORARY 
POINT IN SPACE (MAP COO RDI MATES ) . 



SCEROU'IINE TMPVSI 

COMMON / AEC2/ XNE-^ DELX , XTEM P , XOLD, Y NEW ,DELY , YTHM? , YOLD , Z N EV , DSL2, 
^ ZTEMP , SOLE 

COMMON /AECJ/ V ELCN , VELO T , V ELCC, N , UN S W , UTEMP ^ UO LD , V N E W //T E M P , VO LD , 
1 WNS^r yTEMP,WOIE 

COMMON /AEC4/ AG 1 , AH 1, AI 1 J 1 , AJ2 

COMMON /ABD2/ VSTALL ’/MA X , V MA X 1 , VMAX 2 , D ELTES, D ELT V , DELTAZ 

COMMON /AEE1/ U COT , 7 lOT , W £ o 7 

COMMON /AEE5/ F ACC .AN , MCONT 

UT£MP=a0LL^'U30T«CFLT£E 

VTEMP= VOLD+7DCT’«‘DELTEE 

u T P M o= unt T'^'jppT*r?rTPF 

IF (ABS(OIEMP) .GT.ABS JUNEW) . A NC. MCON T . E Q. 1) UTEMP = UNE’J 
IP (ABS (VTEM?) .GT . A5S (VN E^i • A N C. MCO N T • £ Q . 1) VTEMP = 7NEW 
IF ABS VTEM?) . GT . A B S ( W N E -^) . ANC, MCONT.EQ. 1) WTEMP=4NE^rf 
IF (DELX.Fg.AG1) CTEMP=UNEN 
IF (DELY.Fg. AH 1) VTEM?=VNEW 
IF (DELZ.EQ.AII) STEHP=4NEN 
IF (DELX.NE.v).) GO TO 10 
UDOT=0. 

GO TO 20 
10 CONTINUE 

IF (UT FMP.EQ. UNE-) UCOT= ( UTE M E ** 2-UO LD* » 2) /(2+DELX) 

20 CONTINUE 

IF (DELY .NE.O. ) GO TO 30 
VDOT=0 . 

GO TO 40 
30 CONTINUE 

IF (VT £MP. Zg. 7NEN) 7COr= ( VT E M P ** 2-7 0 LO^ ♦ 2) / (2<‘0ELY) 

40 CONTINUE 



IF (DELZ. NS. 0. ) GO XO 50 
iDOT^O. 

GO TO dO 
50 CONTINUE 

IF (WT EMP.EQ. *.JNE^) W C0T= ( MTEMP**2-WO LD»*2) /(2*DELZ) 
60 CONTINUE 

VELOT=SQHT (UT £MP^*2 + VTEM ?*« 2 + STEM?** 2) 

RETURN 

£NC 



C SUBROUTINE INHT3M 

C INRT5M (INITIAL FCTATIONAL TRANSFORMATION) TRANSFORMS 

C MAP COORDINATE COMPONENTS TO A SYSTEM USED BY FLIGHT 

C CYNAMICISTS (Y POINTS SOUTH AND Z POINTS DOWN) 

SOEROUTINE INRTRM 

COMMON /A3CJ/ VELCN ,7ELOT ,VELCC, N , U N EW , OT EMP , UOLD , 7 NEW , 7T EM P ^ VO L C , 
1WNEW/WTEMP/WOLC 
COMMON /A3E1/ DDCT , 7 DOT , W DOT 
COMMON /AEE5/ FW D ACC , AN , MCO NT 
COMMON /ABF1/ D 1 . ^ . V 1 . U 2 , 72 . W2 , U3 , V 3 , W 3 
COMMON /AEF2/ U C 1 ,7 C 1 , J D 1 ,U D 5 , V D2 , 4 D 2 , UD3 , 7D3 , WD 3 
OI^UTEMP 



V1=-VTEMP 

«1=-WTEMP 

OC1=UDOT 

YD1=-7DOT 

BD1=-WDOT 

RETURN 

END 
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SQBflODIINS ANGLES 

ANGLES COMPUTES THE ANGLE CHANGE INCESHENTS CAUSED 
B*i iiCVEfiENT FORWAFD TO THE TEMPOHAHY ?0 IN T. ? S IN E'k 
IS TEE tEADING CHANGE, HEFSRENCED TO THE X AXIS. 
THENEW IS THE PITCH CHANGE SSFEaSNCZD TO THE 
HORIZCNIAL PLANE- ?HINS*/J IS THE ROLL INCREMENT AEOUT 

«« ^ ^ ^ « * « « « 

SUBROUTINE ANGLES 

CCMMON /AEC2/ XNEH , DELX , XTSMP ,XCLD, Y NE- , D SLY , YTEH P , YOLD , 2 N EW , CEL2 , 
1 2TEMP 20 LC 

COMMON /AEC3/ V ELCN , 7EL0T , V ELOO, N , UN E W , UTE MP , UOLD , V NE • ,VTHMP,V0LC, 



0 



0 



iViNEW, RTEMP . «CLE 

COMMON / A£C4/ AG1,AH1,AI1,AJ1,AJ2 



COMMON /AED1/ AA1,AB1,AC1 
COMMON /AED2/ VST ALL , 7M A X ,7 M A X 1, VMAX 2 , D ELTEE , DELT V , DELT2 
COMMON /AEDU/ ESINE'ii ,TKENEW ,PHINE'ii, PS XCLD , T H BOLD , P ri lOL D 
COMMON /A£E5/ FW L ACC , AN , M CO NT 
DS = S02T (DELX»* 2 + UELY^«2 + DEL2* *2) 



PSINE V=AA1 
PSINE :? = -AAl 



IP (DELX-NE.O- ) GC TC 10 
IP DELX.Zg. 0- -AND. CELY- LT. 0. ; 

IP ]DELX-£g* J-,AND.DELi. GT. 0. ) 

GC TO 20 
CONTIN DE 

PSINEW = -ATAN ( LELY/DELX) 

C-GT- J. -AND- D ELY. EC. 0. ) 

. LT. 0. • ANC. CELY. LT. 0. ) 

‘ "C-0. ) 

I. j. ) 

CONTIN UE 
THENSW= ASIN ( CEIZ/CS) 

TRNRAT= (PSINEW-PSICL j)/DELTEE 

IF (PSINEW.GT.O.) ?HINEW = ATAN ( ADS (TR NRAT* VELOT/9 . 795 3) ) 

I? (PSINE-.LT- J.) ?HINEN=-ATAN (ASSlT E N R AT * V ELO 1/9 - 7 9 5 3 ) ) 

IP (PS INEW. Eg. PSICLC) PHINEW^PHIOLJ 

RETURN 

END 



IP 


(DE L2-GT- 


If 


DELX. LT. 


IF 


DELX.LT, 


IP 


(Di— LX — — . 



PSINEW=0. 

PSINE W = ASl+FSINE’iJ 
P S I N E N = A c 1 
PSINE N = PSINEN-AB1 



SOBROUTINS aOTHAT 

SCTRAT (ROTATIONAL RATES) COMPUTES THE ANGLE DOT 
CCMFCNENTS IN THE INERTIAL BEFERENCE SYS. (THE ONE 

SOEHOOTINE ROTRAT 

COMMON /AEC2/ XNEi , DELI , X TEMP ,XCLD, Y N EW , DELY , YT EMP , YOLD,2N EW , CELZ, 
IZTEMP, ZOLC 

COMMON /AED2/ \S1MI , VM A X .7 M A X 1 . 7 MAX 2 , D ELT EE , D ELI V , DELTS 
COMMON /AED3/ PS I COT ,THS DOT , P HiDOT 

COMMON /AED'4/ PSINE W ,TH E N ES ,? H INE'W , PSICLD , TH SOLD ,? H lOL D 

COMMON /AEE5/ FW L aCC , AN , MCO NT 

PSIDOT= (PSINZS-PSIOLD) /DELTEE 

THEDOT= (TEEN EH-TfcEOLC) /DELTEE 

PHIDOT= (PfilNEli-PHICLD) /D ELTES 

RETURN 

END 
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SU2B0UTINE &CTErt1 

ACTE«1 (AIRCHAFT TRANS? CRM ATION .'lATRIX ^1) EFFECTS 
RCTATICN OF AXECSAFT ABOUT THE Z1 AXIS (?OS u 

SUEHOUTINc ACTRi-n 



CCJ1J10N /A2D^/ I £.«/•! 

CC.^ttON /A££5/ fW C ACC , AN , aCON'T 
COfiaON /ADFV C 1 , VI , W1 , U2 ,V2 . W2.U3, 7 3, 4 3 
CCaMON /AEF2/ 0£ 1 , VC 1, ^ D 1 /J02 , VD2 , 2 , UD J , VD3 , WD J 

ANG=PSINE • 

0 2^COS (ANG) *0 1 4SIN (ANG) *V 1 
V2=-SIN (ANG) U1+CCS (ANG) * VI 
W2=W1 

UD2=COS (ANG) ♦UCI^SIN (ANG) *V D 1 

7D2=-SIN (ANG) ^UDI +CCS (A NG) *VD 1 

WC2=WD1 

RETURN 

END 



,tre:;ev , PRiNZ'if, psicio, ruEOiD, thiol o 



t 4 3 



SUEEODTINE ACTRM2 



ACTRal FOTATES THE AIECaAFT ABOUT THE '£2 (RIGHT WING) 
AXIS. 






SUEROUTINE ACTRal 

COKHON /AED4/ I S I N E W ,TH S N EW , ? tINEW, P S IC I D , TH SO LO , ?K lOL D 

CCMaON /AEE5/ f W I ACC , AN , N CO NT 

COMMON /A2FV U 1 , V 1 , W 1 , U 2 // 2 , W 2 , G 3 , 7 3 , W 3 

COMMON /AEF2/ U C 1 , 7 D 1 , D 1 , U D ^ , V C 2 , 4 D 2 , UO 3 , 70 3 , WO 3 



ANG=rHENEW 

U3=COS (ANG) *U2-SIN (ANG) *N 2 
V3 = V2 






33=SIN (ANG) *U2*C0S (A;;-'.) »W2 
UD3=COS(ANG) »UD2-SII« |ANG) »WD2 
VC3=VD2 

WD3 = SIN (ANG) «0D2«-CCS (ANG) »HD2 

HETORN 

END 
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SUBROUTINE ACT5fl3 

BCTATZS AIRCRAFT ABOUT THE X3 (NOSE) AXIS 
SUBROUTINE ACTB.^3 

COrtflON /AEDu/ fSTNEW ,THEN TA , PfilNE’W, ? SIO LO , TH HOLD , FH 10 LD 

COflilON /AEE5/ FWC ACC,AN,aCONT 

CCHilON /AEFV a 1 , VI , W 1, U2, / 2, W2,U3, y 3, «3 

COKHON /ABF 2/ CD 1 , VD 1 D 1 /J 0 2 , V U2 , i D 2 , U C3 , 7 03 D3 

CCilrtON /A£F3/ UAC,7 AC,- AC,JD01AC, vDO TAC,^-DOTAC,?,s^, R 

ANG=PHINE« 

UAC=U3 

VAC=COS (ANG) * V3^SIN ( ANG) *y3 
W AC=-S IN (ANG) *73 + COS (ANG) 3 
UD0TAC=UC3 

VDCTAC = CCS (AvNG) *VC3+3IN (ANG) *«L3 
WDCTAC = -SIN (ANG) *VD3+C0S (ANG) *WD3 
RETURN 
END 






SUBROUTINE ACSVEL 




ACRVEL (AIRCRAFT HOTATICNAL VELOCITIES) CO.'^PUTES THE 
RCTATICNAL VELOCITIES IMPOSED ON THE 
AIRCRAFT, IN THE ROTATIONAL OR AIRCRAFT COORDINATE 
SYSTHF*. (X ALONG THE NOSE, Y CUT THE RIGHT -ING, 

2 CUT THE 30TT0H C? THE AIRCRAFT,) 



SUBROUTINE \CHVEL 

CC2!10N / AEB3/ P S I EOT , THE DOT , PHIDOT 

COMHON /AED4/ FSINEN , THE NEW , FBINEy, ? S IC L 0 , T H EOL D , PHIOLD 
CC3H0N /AIE5/ IWCACC,AN , ECO NT 

COJiaON /ASF 3/ UAC,VAC, - AC ,*JDOT AC , 7D0 T AC , NDOT AC , Q, R 

•ANG1=rHnN£W 



AHG2=?RINE- 



F=FHIDOT-SIN ( ANG 1) *PSIDOT 

Q=C0S(ANG2)^*THHDCI + CCS( ANG1) *SIN(ANG2) *F3ID0T 
H=-Si:l (ANG2) *THFCCT+CCS (ANGl ) *COS (AN G2) *?SID0T 
RETURN 
END 



162 




i, 




nnnnnrjnnnn nonnnnn 



i(. a. M Vi * ^ If. 



SC3H0 011112 ACACC 



(AISCSAfT ACC2L2aATIO:iS) PUTS TOG2THER THE LIMEAS 
ACCELERATIONS RESULTING FRC.'I TRANSLATION THROUGH 
SPACE AND THE ROTATIONAL ACCELERATIONS RESULTING 
FBOil tSANUVESING. WHAT APPEARS 3ELOW IS THE LdS 
CB Tt£ CLASSIC 2CUATICNS OF ,'IOTION FOR AN AISCRAPT. 



SUSEOUTINf ACACC 

C0-1.10N /A EC 2/ XNEii,DELX,XT2NP ,XCLD, Y NEW , DSLY , ITEM? , lOL C, Z N EW , CEL Z , 
12TIHP, ZOLL 

COHKON /AEE3/ AX,AY,A2 
COHMOK /AEE5/ r W £ ACC , AN , UCO NT 

CONflON /ABF3/ L'AC,VAC,W AC DOT AC , VDO T AC /W DOT AC , P , Q, 3 

AX=UDOTAC-7 AC*R+WAC»C 

AY=VDO lACf GAC*5- ^ AC^P 

AZ=WDOTAC-UAC^g 

A=-VAC^R 



E=WAC^Q 

c=UAC* a 



D=-WAC^P 

E--UAC^Q 

F=VAC*P 

RETURN 

END 









SUEEOUTINS 



ACLMTS 






ACLZTS (AIRCRAFT LIZITATICNS) C0ZPARE3 THE 
ACCELERATIONS RESULTING FROU A PROPOSED HOVE ALONG A 
FLIGHT-PATH TRAJECTORY TO THE PHYSICAL LIHITATICNS CF 
ThH AIRCRAFT- THIS IS ESSENTIALLY THE 7.HS OF riiL 
ECUATICNi OF dOTICN- I? THE TRAJECTORY \CC2L ER ATIG NS 
ARE LARGER THAN ALLOWABLE THEY ARE ADJUSTED DOWNWARD 
IN MAGNITUDE UNTIL THE RHS AND LHS OF THE ROUATICNS 
CF .’^CTICN ARE SQUATED- 



I mut* * : 



[ ««« m * 4 ^ 



SUBROUTINE ACLHTS 
COUflON /SEES/ AX,AY,A7 

COMMON /AESa/ THMAX ,,ANMAX ,CLM AX, GEE, TO, 5HOS3.L, W L , CDO , CDK , A R £A , DT DH 
CCMHON /AE£5/ FW C ACC , AM , M CO NT 
CALL THRUST 

IF (AN-LT-ANMAX.ANC. rWDACC.LT.THMAX) CALL 300STR 
C IF(AN.GT*ANMAX. OR.FWDACC.GT. THMAX) CALL REDUCR 

RETURN 
END 
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non 



susHooTiNi: scosra 

BCCSia INCREASES IHE LINEAF ACCELERATIONS rjNTIL 
MAXI2QK ALLO^^ASLE PEHFORMANCE IS REACHED 

SUHHOaTINE BOCSTR 

COMflOH /AEC2/ XN E i , D ELX , XTE MP , XC ID, I , DELY , YT E:J ?, YOLD, 2N EW , EELZ, 

1 ZTEHP, 20IL 

COHSON /ABCU/ AG1 - AH 1 ,AI 1 .A J1 ,AJ2 
CCHrtO?J /AEE1/ UCOl^VCOT^WDOT 
COHHON /AEE3/ AX,AY^A2 

CO.'ISON / AEE4/ TH.^AX , ANH AX ,CLH AX , GEE , TO , RHO S3 L , :4L ,CDO ,CDK , ARE A , DT DH 
COaaON /AEE5/ FWCACC ,AN, aCONT 
aCCNT= 1 



10 CONTINUE 
1=0 

IF (AG l-EQ-DELX.GR.AGI. 3Q.0. ) GOTO 20 

IF (AflS (AG1) .LT. AES (AKl) . AND. AES (AG 1 ) .L I. A 35 (AH) ) 1=1 

IF (I. NE-1)_ GC TO 20 
UCOT=l . 02*UDQ1 
20 CONTINUE 

IF (AH 1.EC.D5LY.OR.A:-n. EQ.O. ) GOTO 30 

I? (ABS (AHl) . LT. AES ( AG1) • AN D. A ES ( AH 1 ) .L I . A 5S ( A 1 1 ) ) 1 = 2 
IF (I.NE.2) GC 1C 30 
VCCT=1 . 02^VDOT 
30 CONTINUE 

IF (AIUHQ.DEIZ.CH.AII.Cg.O.) GOTO 40 

IF (ABS ( All) . LT. AES ( AG1) . AND. AES (AH ) - LT. A55 (AHl) ) 1 = 3 

IF Jl. NH.3) GC TC ad 
WCCT=1 . 02*WDOI 
40 CCNTINUE 

IF (AG 1 .EC.DELX.Or.AG1. EQ.O. ) GOTO 50 

IF (ABS (AG 1) . EC. AES (All) . AND. AES (AG1) .LI. ASS (AHl) ) 1=4 

IF (I. NE.4)_ GO iO 50 
OCOT=1 . 02*UDOT 



WDCT=1 .02*WDOT 
50 CONTINUE 

IF (AHl. EQ.DELT.OP.AH1. EQ.O.) GO 70 60 
' IF (ABS (AGl) . EC. AES (AHl ). AND. AES (AG1 ) .LT. ALS (Ai’l) ) 1=5 

IF (I. NE. 5) GO TO oO 
UDOT=1.02*UDOT 
7DOT=l .02*VDOl 
60 CCNTINUE 

IF (AI 1 . EQ.DEL2.0R.AI1. EQ.O. ) GO TO 70 

IF (ABS (AHl) . EQ. AES (AH) . AN D . ABS ( AH 1 ) .LI. ABS (AG1) ) 1=6 

IF (I. NE.3) GC IC 7d 
VDCT=1 . 02*VDOT 
SDCT=1.02*yDOT 
70 CONTINUE 

CALL S aLCAL 
CALL THRCST 

IF (AN.GE.ANH AX.OH. FWDACC.GS. IHHAX) GO 10 30 
GO TO 10 
80 CONTINUE 

IF (AN .GT.ANHAX) AN=ANMAX 

IF (F3 EACC.GT. TH3 AX) F'4 D A CC = T ESAX 

RSTUHN 

ENC 
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noon 



SliBBOUIINE REDUCE 



t «C ^ 



10 



20 



30 



SEIUCa IS CALL FFC.'I kCLMS AND REDUCES THE '*NEW» 
VELGCITY AND ULTI2ATELI POSITION TO GET LOADS 
ON TtE AIRCRAFT 'WITHIN LIHITS* 

SUE30DTINE REDUCR 

COMttON /ABC3/ V5LCN , VELOT , 7 S LCC , N , 0 N EW , UT Ert ? /U OL D , V NEW ,VT EHP, 70LC, 
1 WNEW, WTEHF, WOLD 

COH^ION /A2Ca/ AG1 ,AH1,AI 1 ,AJ1,AJ2 

CCMrtON /ABD2/ 73T ALL , V?1 A X ,7 a A X 1 , VJlAi 2 , DELTE2 , DELTV , DELTZ 
CC.'-.HON /AEE3/ AX,AY,AZ 

COMKON /AEEa/ TH:iAX, ANH AX ,CLH AX ,GEE , TO , 3HOSSL, -'L ,C JO ,CDK , A RE A , DT DH 

CCHMON /AEE5/ ? W C ACC , AN . HCO NT 

CCaaON /LCC/ X 1 , n, E 1// 1 , IT R, LTR2 

MCONT^I 

CCNTIIJOE 

VELON=VELCN-DEITV 
A=VSTALL>2. «DELTV 
IF (VSLONwGE.A) GO TC 20 
ANG=ACOS I AG1/AJ2) 

AJ2=1 . 1* AJ2 

AG1 = COS ( AHG) *AJ2 

AH1 = SIN (ANG) ’^A02 

VELON=71 

CONTINUE 

N=^0 

CALL HVEICS 
CALL lIVDCTS 
CALL SMLCAL 
CALL THRUST 



IF (AN .LE.ANHAX.AND. FWD ACC- LE.THHAX) GO TC 30 
GO “TO 10 



CONTIN UE 
SETURN 
END 



/ 
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onnnn ononn* 



SU3H0CXINS SMLC 



: « «4c« > 






(SMALL CALL) IS A SMALLER 7ERSIOM OF (BIG CALL) AND 
USED IN THE ITERATIVE LCOIS OF (AIRCRAFT LIMITATIONS) 



c 



S03HOUTINE SMLCAL 
CALL aVDOTS 
CALL DELVEC 
CALL TMP9 >;t 
CALL rap^EL 
CALL INBTSM 
CALL ANGLES 
CALL aOTfiAT 
CALL ACTSMI 
CALL ACTEM2 
CALL ACTRMJ 
CALL ACR7EL 
CALL ACACC 
BETURN 
END 






SUBROUTINE THRUST 

THRUST IS USED 3Y (AIRCRAFT LIMITATIONS) TO COMPUTE 
THE AVAILABLE FC5WARD ACCELERATION BASED UPON THRUST 
DRAG, G-LOADING, POSITION IN SPACE AND GRAVITY. 






:4c 



SUBROUTINE THRUST 

COMMON /A EC 2/ JINE^i^DELX , ITEM? ,1CLJ, Y NEW , D ELY, Y TEMP, YOLO, D NEW, DELZ, 
iZThMP, ZOLL 

COMMON /ABC3/ VELCN, VEL JT , V E LCC , N , U N £W , OT EMP , U OL D , V N EW ,yTEMP,VOLC, 

COMMON ‘/AEDU/ ESI.NEW ,THEN EW , PHINEW, ? S 10 1 j , Til EO L D , PHICLL 
COMMON /A£E3/ AX,AY,AZ 

COMMON /AEE4/ TH M AX , ANM A X ,C LM AX ,GEE , 10 , 5HOS5L, WL, CDO,CDK, AREA, DTDH 

COMMON / A£E5/ in I ACC , AN , MCONT 

ANG=THENEW 

T H 3Q A X / G EE 

AM = SQRT ( AY^J'^E ^ AZ^*2) /GEE 

SIGMA= (1 +CTDH*ZTFMP/TO) *♦4,257 

HHOALT=RHCSSL*SIGMA 

CL=(2. ♦AN*^L) / (PHCALT*VELCT^»2) 

DRAG^AN* ( (CD0+CCK*CL**2) /CL) 

PiDACC=SIN (ANG) +THECD + DRAG 

RETURN 

END 
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C SaBfiOUTINE XCH^^GZ 

C ONCE THE EQUATIONS OF MCTICN k2Z 

C PHOfCSHS LOCATIO N (TE:1?) THE TI.'I? 

C TK2 CURriZNT LOCATION* (OLD) . 



SATISFIED AT THE 
LOCATION 3ECCHE3 






SUBROUTINE XCHNGc 

CCMF.ON /AIC2/ XN 5W, DZLX , XTET.? , XCLD, I N EW , D ELI , TIE P , TOLL , 2 N EW ,DELE, 
IZTEHP, 20LD 

COii*-*OiN /AHC3/ VELCN, 7ELOT ,7ELCC, N,UN Eii , OTE.'-.P , HOLD , 7 NEW , YT E :i ? , 7C ID , 



rrfNEW/rfTEHP/^CID 

CG.IrtON / AED4/ ESI NEW ,THENEW , ? HIN E'W ,? SIO LD , THEO LD , ?H 10 LD 
IOLD=XTEi'lP 



YCLD=ITEi'1P 



2CLD=2TEKP 
OOLD=UTErtP 
V0LD = YTE.1F 
WCLC^WTEHP 



PSIOLD=PSINEW 

TH£OLD=THENEW 

?hiold-?bi:ie4 

VEL00=7ELCT 

REIURN 

END 






C SUBROUTINE NAYPNT 



C THE 5ELEVANT ?AR^2£TEES r C F THE CURRENT POINT 

C ASSIGNED. 

SUBROUTINE NAItN*^ 

COOlilOM /And/ «X (1000) , 71 (1^;0C) ,-2(1 GOO) 'WUi 1030) ,WV (1 JOO) 
1) ,7H(1000),7P (1000) ,«R(10u0) ,70(1 000 ) , I ( 1 0 00 ) , ICT 
COilMON /A2C2/ X:iEW,DEU , X TE X P , XCLD , *I N £N , DE LI , { IE N P , YOLO , 2 N 
1ZIEHP, SOLD 

CCaHON / AEC3/ 7ELCN , VELOT ,7 ELCC , N ,UN EW , UTEilP , UOLD , 7 N EW , 7T E 
1 SNEW, 7TEHP, -OLD 

COEHON /AED2/ 7ST ALL ,7^! AX ,7X AX 1 , VXAX 2 , D ELTEE , D ELI V , DE L TA2 

COrtMON /AED4/ P S I NE7 ,TH E N E7 , ? H I NE W , P S IG I D , Td EOL 0 , PdlOLD 

CC.’iaON /AEE5/ Ea£ACC,AN , HCONT 

WX (ICT) =XCLD 

WI ICT = ^CLD 

WZ (ICT) =ZOLD 

70 (ICT =fCLD 

7V (ICT) = VCLD 

Wii (ICT) =7CLD 

WH (ICT) =-?SINES 

yp (ICT) =TH£NE7 

WB (ICT) =-PHIM EW 

«G (ICT) =AN 

T (ICT) =T (ICT- 1) +DELTEE 

RETURN 

END 



ARE 

,77 (1000 
E7 ,2ELZ, 
:^*F,7GLO, 
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c * 

C SUBROUTINS FIL2 
C 



k 9 # «« * « 3 



i ^:ti^ :iti ^ T3 A * Xt ** 



10 



20 



TfcE CURRENT POINT IS i:!a£DIATSLZ SAVED. 

X 4 44 4 44*4 4 44 Xi 44 44 4 

SUEROUTINt FILE 

COaaON /ASCI/ (10G0) , wy (1 000) , W2 (1 000) , WU f 10 00) , WY ( 1 00 0) , ww 
1) /4H ( 1 000) , NP { 1000) , ( 1 000) , «G (1000 ) , I (1 OOO) , ICT 

CON:10N /A3C2/ XNEW, DELX , X TE :i? , XOLS , Y NE« , DEL ^ , YTEX? , YCLD, Z NEW , 
1ZTEMP , ZOIC 

C0.1M0N /LCC/ X1,Y1,Z1,71,ITH,LTR2 

IF (XOLD.NE. XNE^.CH. YOLD. NS. Y^EW.OR. ZCLD. NE.ZNEW) GOTO 10 
WRITE T (ICT) ,WX (ICT) , WY (ICT) ,AZ (ICI) , WO (ICT) ,-V(ICT) , 

1 T) , Wn (ICT) , W? (ICT) , - H (ICT) , WG (ICT) .LTR 
3^1 URN 
CONTINUE 
LT3=0 

WRITE (1 U20)_ T (ICT) /WX (ICT) , WY (ICT) ,W2 (ICT) ,WU(ICT) ,WV(ICT) 
IT) , -H (ICT) , WP (ICT) ,4ft(I(:T) /WG (ICT) /uTH 
RETURN 

FOaXAT (11 (E10.U ,1X) ,13) 

END 



(1000 

DELE, 

-Am {1C 
A A (IC 



44 4 4 44444 44 44444 44 44 444 4 44 4 4 44444 444*44 4** 4 444444444*44*44444 

C SUEHCUTINS GRAFIX 

C THE CURRENT POINT ALONG THE T2AJECTCRY TO THE 

C CISIFEC WAYPOINT IS PLOTTED. 



iXf*44m 4444*44 4 4* * i 



ti4 4444444* 



SUcROUTINE GRAIIX 

COMMON /ABC! / WX ( 1000) , W Y (1 000) , WZ ( 1 000) , WU { 100 J) , 
1) , WH ( 1 000) , W*p (1000) , W3 ( 1000 ) , /.G ( 1 JUO ) , X (1000) , IC I 
CO.'IrtON /:iN 1/ dlNX ,:iAXX, XINY AXY,0IN X 1 , XAXXl , .110X2 



?X1=WX (ICX-1 ) 

?X2=WX (ICT) 

PYI^WY (ICT-1 ) 

PY2=WY (ICT) 

CALL WIN (MINX.NAXX, 1S000., 120C0. ,0) 
CALL GBVICT (0. ,PX 1,?Y1) 

CALL G3VECT (l.,Pi2,PY2) 

CALL GSFECS 

RETURN 

END 



W V ( 1 000) , A A (10C0 
,:iAXX2 
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nnoni 



SOcEOUTINE EB5CHK 

ZHSCHK CHECKS THE DESI3ED WAYFOIMT AGAINST GA.1E 
Lli'^iITATIOriS. WHENEVER F0SSI3LE, CORRECTIONS ARE 
AUTC?!ATIC. 

SCBROUTINE ERRCHK (lEHR) 

CCa.'lON /LOC/ X1,Y1,Z1,71 ,ITEr ITi^2 

COflaON /FAR4/ APE«AX ,HTal N, HT^AX, FOPIilN , BA ALT, BRaiN , ORa AX , 5h R ai N , B 
1SHMAX, HTC^AaTF 
COaMON /TAR/ TAHGX.TARGY 



COWaON /ABC1/ WX 



1) ,WH(1000) , 
DX=TARGX-X1 



WP ( 1000) , WH { ^0C 



• (1 000) ,WZ( 1 000) ,WU( 10 JJ) ,77(1000) ,;JW (1000 
lOO) ,WG(1000) ,I(100J) ,ICT 



DY=TARG Y-Y1 

DIST=SQRT (DX**2 + CY<‘^2) 

IF (DIST.LS.PCEaiN) GO TO 10 
IF (Z1 . GT. APPaAX) Z1 = APPaAX 
IF (Z1 -LI-HiaiN) 21 = aTaiN 
10 CONTINUE 

IF (LTR. NE.65.CF. LTR2.NE. 65) GC TO 20 
IF (Z1 .LT.cA ALT) Zl=tAALT 
20 CONTINUE 

IF (LTH.NE.o6.OR.LTR2.NE.6o) GC TO 60 
IF (Z1 .LI.BRaiN) 21 = 5RMIN 
IF (ZT . GT. BRaAX) Z1 = EH:1AX 

IF (DI SI. LE. 3 REaA A. AND. BIST. GE.BERai N) GO TO 30 
IF (DIST. GT. BHHilAX) I£3R=9 
IF (DIST.LX. BRSaiN) rZHR=13 
RETURN 

30 CONTINUE 



TGIHDG=ATAN2 (Dv,3X) *RTD 
IF (XGTHCG.LT.O.) IGIHDG = TGT:i DG^- 360. 
DX=X1- mA (ICT) 

DY = Y1- Hi (ICT) 

ACHDG- AT an: ( DY ,CX) ’>'RTD 
I? (ACHDG. Lx. 0.) ACH0G=:ACHDG + 360. 
HCGLHT = AES (T GT EDG-AC HDG) 

IF (HDGLai. LE. 5. ) GO TO 40 
IE3R=1 0 



RETURN 

40 CONTINU'E 

DIST=SORT (DX**2 + DY**2) 

SFEED=SQRT (WU (ICT) **2i-WV (ICT) *^2 + WW (ICT) *^2) 

DT^DIST/SPiZD 

IF (DT.GE.2.33) GC TC 50 

IE3H=1 1 



RETURN 

50 CONTINUE 

60 CONTINUE 

RETURN 
END 
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non nonoon 



« 



* ^ j 5 f « ^ 



SU£R0aTI2;S AI.'IPT 



♦♦ ’ 



THIS SUcHOUTINS CABKS A LINE FROM THE CURRENT 
AI3CFAET POSITION TO THE lAGET AS A USSR AID IN 
ALIGNING 30:i3 RELEASE POINT. 



SC3ROUTINE AI^IPT 



COa.^ON / AEC1/ WX] 1000) , WY (100 C) , WZ (1 OGO) , WU ( 100 J) , 
1) . -H (1 00 0) , - ? ( lOCC) , 0 00) ,^sG{ 1000 ) ,T (lOOU) , ICT 

COMMON /TAh/ TARGX,TARGY 



(1 00 0 ) , (1000 



H£AL^4 rX,TY,TX 1,TY 1 
CALL /JIN laiN X ,aAXX, 18000. , 1 20C0. ,0) 
TX=^X (ICT) 

TY=SY (ICT) 

TX1=TAHGX 
TY1=TARG Y 
CALL GSLT ( 1) 



aCVE AN£ DRAW CAStEE LINE TO CURRENT /JAYFNT COORDINATES 



CALL GBVECT (0. ,TX,TY) 
CALL GBVECT (1 . ,Ti1 /lYl ) 
CALL GSLT (0) 

CALL GSFHCE 

RETURN 

END 
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non onon 



C ’ 






)cxr*x4cv«;4C4c4 ♦♦♦««nfc 



SUBROUIIHS ELFIN 

7HI3 SUEFOUTINS PEOOESTS TBE OSER OPTIONS AND CLOSES 
THE GPArHIC SaORCUTINES. 



SO0ROUTINE ELFIN (LAST) 

COiiaOM /GET/ IGUN, JPNCH, lEXT , ISA:1 , la ? , K£ H , la ?2 

coaaoN /MN1/ aiNx,aAxx,aiLY ,aAXY,:!iNx i ,aAXXi ,ai:ix2, aAXX2 



CLOSE GRAPHICS EOGTINES 



10 

20 



30 



40 

50 

60 

70 

ao 



CALL OSTEEa 

IF JLAST.ZQ. J) GO TC 20 

CCNTINUE 

WRITE (6.40) 

READ (5,*) FIN 
CALL FRTCaS (»CLRSC3N *) 
IF (FIN. GT-2,OH,FIN-LT. 1) 
CONTIN US 



WHITE (6,50) 
WflirS 
HEAD ( 






50) 

) IPNCH 



CALL FRTCaS (*CL5SC5N •) 
I? (IPNCR.EQ.O) SEIU3N 
IF (IPNCH. EQ. 2) GC TC 30 
WRITE (6,70) 

READ (5,») TEXT 
CALL FRTCaS (»CLHSC3N *) 
IF (IPNCH.EQ.1) EHTUEN 
CONTIN UE 



WRITE (6,30) 

READ (6.n ISAa 

CALL F HTCHS ( * CLFSCFN * ) 

I? (ISAI1.lt. l.CR. ISAiX.IT. 

RETURN 



GO TC 10 



7) GC TO 30 



?CS:iAT (5 1H APE ICU FINISHED WITH THIS FLlGHTrATH: j = NU; 1 = YZS) 
FORMAT (43H OUTPUT FILE; 0= :i C CUTPUT ; 1 = ?001 FILE ONLY) 

FCRaAT (5 1H 2=aiCH FILE ONLY; 3=?00 1 0 :UCE FILES) 

FORMAT 49H EXTENDED OUTPuT; C-=NOT iiANTED; 1 = SaT£ND£D OUTPUT) 
FORMAT (29H MISSILE TYPE BETWEEN 1 AND 7) 

END 
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c 
c 

c < 



4c * -> V V « 

II FILZS 

« :|t 4c 



THIS SUSROaTINZ SEITZS THE ?001 MiD .ilCE 
FCR THH USER. 

SOESOaTINE PRESET 

CC:iaON /AECl/ SX (lOOC) , .VY (lOOO) ,WZ(1 OOO) ,WUM00J) ,SV(1C00) ,ss (1QC 

" ^ ‘ 'JO) , icr 



1) /SH(IOOO) ,SP (1UOO) , SR ( 1000) ,SG (1 000 ) (1000) ,IZ2 

COy^.MON /FAR2/ XGUN ( /) , iGUN(7) ,IG0::(7) , I SA , Y SA d , IS A , G E (7 ) 

CCr.MON /?A34/ Airi?AX ,HT. 'll. N,HT I! AX, =0?« IN, EAALT, 33^ IN, 3E.1AX, BRHaiN,B 
IHZilAX, an, AMT F 

C01M0M /OPT/ IGUN, IPNCH, IZXT .ISAM,IM P,KEa, IMPZ 
CCaMON /NArt/ INA:n(2) .i'A02(3) ,I0NK, iAn 5,10IST 
DIMENSION XI 0 (200) . 'no (200) ,VEI(200) 

DiaZNS ION acSTAB ( lOOO) , riNK ( 1 0) 

DIMENSION VAT 1N2 (203) ,7fvT 3(20 H) , VATS (203) 



C VULNERABLE AREA TABLE VS TYP- 

C- 



1 ANC 2 WEAPONS 




C VULNERABLE AREA TABLE VS TYPE 3 WEAPONS 

C 

DATA VAT3/ 2* 12-54, 6* 13. 47, 2 *9 .c53 ,b*10.5l,^’^'9.63 9,O^11.15,2*12.64, 
16^14. 79, 2^9. 639, 0*11. 15, 2 *9. 353, 0^10-51, 2*9. 63 9, 6^11. 15, 2^12. 64, 6^ 
214. 78, 2*9.o39,t*11.15,3*1.39U,2*4.762,o«o. 24 0,2=* 5. 342,6*7,^32, 2*4* 
3762,6*0. 24^,3* 1.394 ,2*4, 7o2 ,6 ♦6,240, 2*5-34^ o^7, 43^ ,2**4. 762 ,b*b. 24 
40,2*9.353,b*10.5l,2*9,o39,o*11.15,2*12.o4,b*l4.7o,2*9.o39,D*11.15, 
5 2* 9. 35 3, 6*10. 51, 2*9, 639, 6*11. IS, 2*12. 04, 6*14, 73, 2^y, 63 9, 6*11, 15, 2* 
612.54, 0*13.47/ 

C 

C VULNERABLE AREA TABLE VS TYPE 5 WEAPONS 

C 

DATA 7AT5/d*5 5.3 7 ,3 *h 3. 22, 3*47. 10, 3*62. 53, 3*47. 10,3*43.22,3*4 7. 1 0, 
18*b2. 53, 9 *4 7. 1C, 3*5. 761, 3*27. 45, 0*33. 07 , 3* 27. 45, 0*5. 76 1,3* 27. 45, a* 
23 3.07,3* 27.4 5,3*5. 70 1,3*4 7. 1 0 , 6*b2. 5 3 , 3 *4 7 . 1 0 , 3* 4 3 . 22 , 3*4 7 . 10,3*62 
3.53,3*47.10,3^55.37/ 

C RADAR CROSS SECTION TABi^ ^ 

DATA RCSTAfl/1 9 * 1 0 CO . , 19 * 1 00 . , 1 9* 1 0. , 1 9 * 1 0 . , 1 9 * 1 0. , 1 9 * 1 00 . , 1 9* 1 0 0 0. 
1 , 867*0.0/ 



C— - 

C CALL EHRSET SUPPRESSES ANY POSSIBLE UNDSHFLCW PROBLEMS THAT MAY 
C RESULT FROM SANIPULATICN OF SCSNABIO PARAMETERS. 

CALL SRRSET ( 2 C 8 , 50 , - 1, 1 , 1) 

JAM=0 ^ ^ 

C CARD 2 TIME INCREMENT CALCULATION 

TINC=T (ICT) /I 0CC. + C.0008 



C — - 

C CARD 6 TIME INCREMENT CALCULATIONS 

TINKI=0 
DC 10 1=1,9 

TINK (I) =TINKH'T (ICT) /10 
TINKi=TINK (I) 

10 CONTINUE 



C FOLLOWING GENERATES VELOCITY MAGNITUDE AT EACH POINT 
DO 20 r=1 ,ICT 



20 
C — - 
C 
C- 

c- 



VEL (I) =Sc5t (WU (I) **2+«V (I)**2 + WW (I) **2) 
CONTINUE 



'PUNCH PeCGHAM*****///// 
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C OPTION TO PUNCH* THE ?C01 CARD DECK OS .'^ICE-II CASD DECK 

Q 

IE (IPNCH.EQ. 2) GC TC aO 

C COMHENCE PUNCHED ODTPCT C? THE P001 CARO DECK. 

C 

C THE JCL CASDS. 

WHITE (18,70) INA.^1 ( 1) , INAH 1 (2) ,IUNS ,IANE,XNAiai (1) (2) ,XU:iS 



WHITE 


(18,90) 


WHITE 


(18,100) 


WRITE 


13,110) 


WRITE 


18,120) 


WRITS 


18,130) 


WRITE 


18,140) 


WRITE 


18,150 


WRITS 


(18,160) 


WRITE 


(18,170) 


LEADING BLANK DATA CAHD SIGNIflES 5ADAR HASKING ANGLE OP ZERO. 


: THE OUTPUT 


: TITLE CARD* 



C~ 

C CASD 



WRITS (18,200) 



WHITE (18,180) 

WHITE (18,210) I(ICT),riNC 



C THE 2A CARDS (HI IE SIC NE5 ) - 

DO 30 1=1 ,:CT 
WU (I) =WU (I) * AHTF 
W7 (I) =WV (I) * AKT7 
WW (I) = WW (I) ♦ A«Tr 

WRITE ( 18,220) T (I) , /^X (I) ,W Y ( I) , WZ (I ) , W U (I) , WV (I) , W W (I) , 4 H (I) , W ? (I 

^cdyiiNliE 



30 ^ 

C CASD 3 (GUN EHPLACZHEXT CARD) 
C- 



WRITE 

WRITE 



[18,240) 

[1 8,25 0) XGUN ( 1) , YGUN ( 1 ) ,2GUN ( 1) 



CARD 4 (GUN TYPE) • 



WHITE (18,230) 
WHITE (1 8,260) 



CAHD 5 



WRITE 

WRITE 



(1 8,190) 
(18,270) 



CASD 6 



C- 

C 

C 

C- 



WRITE (1 8,280) 

WRITE (18,290) (TINK (I) ,1 = 1 ,9 ) 



CARD 7 (VULNERABLE AREA TABLE VS TYPE 1 AND 2 WEAPONS) 

WRITE (1 8 ,300) 

WHITE (18.310) 

WRITE (18,J20) (VAT1 N2 (I) ,1=1 ,208) 



CARD 12 (SXECCTS RON), 
EXTENDED OUTPUT OPTION 



WRITE (18,330) 

IP (lEXT^NE.I) WHITE (18,350) 
If UiJXT.EQ.I) WHITE (18,340) 
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C THE 8EMAi;iDE3 0? THE CA5D5 I'.iXHODUCE NE'-.' >JUN LOCATIONS, SHN lYPi 
C ANC VULNEHArLE ABEA T.A3LE3 TO 3S EXECUTED 3Y THE PEOGHA.-.. 

MBITS (18,2U0) 

MBITS (18,250) XGCN (2) ,YGUN (2) ,ZGUN (2) 

EXTENDED OOTEGT QPTICts 



WHITS (18,330) 
IF (ISXT.NE. 1) 



^HITE (18,350) 
MalTE (13,3a0) 



IF (ISXT.EO. 1 ) 

MBITS (18,240) 

MBITS (1 8,250) XGCN (3) , YG UN (3 ) 
MBITS (18,230) 



:gu;i ( 3) 



WBIIE (18,360) 
EXTENDED OUTFCT OETICN 



aaiTE (1 8,330) 
IF (ISXT.NE. 1) 
I? (IHXI .SO. 1) 
MBITS (18,240) 



WHITE (1 8,350) 
WHITE (18,340) 



MBITS (1 3,250) XG UN (4) , YG UN (4 ) , 2GUN ( 4) 
SXISNDED OUT5UT OETICS 



WRITE 


(1 8 ,J30) 


IF lid 


XT, NS. 1 


IF JlE 


XT. SO . ^ ) 


WRITE 


( 18,240) 


WRITS 


[1 8,250) 


WRITE 


leUooj 


WRITS 


(ia,J70) 


7 (VCLNEHA3LE 


WRITS 


(1 8,300) 


WRITS 


13,410 


WRITE 


18,320 



MBITS (1 8 , 350) 
MBITS (18,340) 



(VAT3 (I) , 1 = 1 , 20h) 
SXTENCED OOTFUT OFTICN 



M6ITE (18,330) 
IF (ISXT.NE. 1) 
IF (lEXT. EO. 1) 
MBITS (18,240) 
MBITS (18,250) 
MBITS (1 8 ,230) 
MBITS (18,380) 



WRITS (1 8 ,350) 

WRITS (18 , 340) 

XGUN (6) , YGUN (6) ,2GUN ( 6) 



EXTENDED QCTEUT OFTICN 



SHITS 


(18,330) 






17 (is: 


!(T-NE. 1 


WRITS ( 


;1 8 ,3501 


If (TEXT. £0.1 


WHITE ( 


13, 340) 


WHITS 


(1 8,240) 






WHITS 


(18,250) 


XGUN (7) 


, YGUN (7) ,2GUN ( 7) 


WHITS 


(1 8 ,230) 






WRITS 


(18,390 







lABLE vs type 5 MEAEON) 



CAED 7 (VOLNEHABDE AREA 

MBITS (18,300) 

MBITS (18,420) 

MBITS ( 18,320) (VAT5 (I) , 1 = 1 , 206) 



EXTENDED OUTPUT OFTICN 
MBITE (18,330) 



IF (ISXI.NS.1) 

7 . £ 0 . 1 ) 



IF (lEXT. 

MBITS (If 
IF (IPNCH'.SQl 



MBITS (1 8,350) 
MBITE (18,340) 

1) 3ETU3N 



FCBMAT STATSSENTS 
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40 CON'TIMUE 

C0«ttENC2 PUNCHED OUTPCT C? TKZ aiCi-II CARD DECK 



CHECK FOB VALID MISSILE CESIGNATICN NUMBS3 FOR MICE II 



If (IS AM.IS, 7. ANE.ISAM.GE. 1) GC TO 5C 
RETURN 



THE JCL CARDS 



WRITE (1 7,430) I:JAM2(1) ,INAM2 (2) , lU N S , I A NB , I N AM2 ( 1) ,INAM2 (2) ,IUNR 

IF (ID£ST.EQ.2) WBITr (17,440) lUNB 
WRITE (17,4b0) 

WRITE (17,460) 

WHITE (17,470 
WRITE (1 7 ,400) 



THE OUTPUT TITLE CARDS 



WRITE 

WHITE 



(1 7,490) 
\ m , 500 ) 



THE HHC3LEM RON INIUT CARDS, CHECKING FOR TYPE OF M3SIIZ 
TC INPUT TO MICE II 



WRI 


TE (17,510) 




IF 


(ISAM.iiO. 1 


WRITE 


IF 


(ISAM-Ej. 2 


WRITE 


IF 


(ISAM, zQ. 3) 


WRITE 


IF 


(ISAM,Eg.4) 


WRITE 


IF 


(13 AM -HO. 5) 


WRITE 


IF 


( 13 AM . o ) 


W2ITI 


IF 


(I5AM,IQ,7) 


WRITE 



(17 

(17 

P'7 

17 

(17 



:7E3i 

r7l3>, 

, 730) 



THE PSSK CALCCLATICN CARDS 



WRITE (17 ,520) 
WRITE (17,530) 



THE BACAH CRCSS SZCTICN TABLE 



WHITE 

WRITS 

WHITS 

WHITS 

WHITS 



(17,540 
(1 7,550 
17,560 
(1 7,570) 
I 17,530 



(RCSTAB( I) ,1= 1 , 133) 



THE SIMULATION TIME PARAMETERS 



WRITE (17,590) 
WRITE (1 7,600) 



THE MISSLE LAONCHEH LOCATION 



WRITS (17,610) 

XFSAM= XS AM^'AMTF 
YFSAH= YSAM^^^AMTF 
2FSAM=2S AM^AMTF 

WRITS (17,620) XFSAM,Y?SAM,ZFSAM 



THE TARGET TBAJECTCRY 



WHITE (17,630) 
WRITE (17,640) ICT 



THE MIISSTONE CARDS 



DO 60 1=1, ICT 
WX (I) =WX (I) ♦ AMTF 
WY (I) = WY (I) *\M1F 
W2 (I) =W2 (I) ♦ AMTF 
7EL(I) =VEL(I) ^AMTF 

WHlts (I7,o50) I (I) ,WX(I) ,WY (I) ,W2(I) ,VFL(I) , W?(I) , WR ( I) ,WH(I) 
60 CCNTINUE 
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C END OF PONCHEE CAfiCS 

WRITE (1 7,660) 
WHITE (1‘.^>70) 



HETOHN 



C /////*#^^* FCfiiiAT STAIEMEETS *///// 



70 
80 
90 
100 
1 10 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
2^0 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 



570 

580 

590 

600 

610 

620 

630 

640 

650 

660 

670 

680 



fcr:ut 

FOBi'lAr 

FCRKAT 

F03i‘-*AT 

?OR:iAr 

FCHMAT 

FoaaAT 

FCBilAT 

FCfiHAT 

FOBMAT 

FCBi'lAT 

FCB.1AT 

FCRrtAT 

FOa.’IAT 

PC s 1*1 A r 
FOP.:iAr 
FOBl’IAT 
FCRc'IAT 
FORMAT 
FCBMAr 
FORMAT 
FORMAT 
F05MAT 
FORMAT 
FORMAT 
FORMAT 
FOariAT 
FOBMAX 
FORMAT 
FORMAT 
FOBMAF 
FORMAT 
FCBMAI 
FORMAT 
FC dfl AT 
FOBMAT 
FORMAT 
FORMAT 
FOBMAT 
FORMAT 
FORMAT 
FORMAT 
FOBMAT 
FORMA r 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FCaMAT 
FORMAT 
160../, 
24H130. 

FORMAT 
1 ,3H90- 
FORMAT 
FORMAT 
FORMAT 
10 .) 
FORMAT 
FORMAT 
FORMAT 
FOBMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 



(2a//,2A4,oH JOB ( ,14, ia, ,14 , 2H) , , 1H* ,2A4 , 18 ,14,28?*) 

( 19H//^MAIN CRG=NPGVM1 . ,I4, 1H ?) 

(16H// EXEC ?GM=?1AD) 

[42H//STEPLIB DD DI5?=SHR, DSN =MSS . ? 05 5 9 . ?I PS AV) 
[47H//GC. F 107^04 1 JD U M: = STS D A, S ? ACE= (OY L , ( 1 , 1 ,) ) , ) 

4 1H// TC£ = (EEC?:i= /BS , L?ZCE = 4 04 , 3LKSIEi=3 2 Jo ) ) 

22J//GO. FIC9FU01 DD DU.1MY) 

25H//GC.fIC6FOO 1 DD 5YSOUT=A) 

18H//GC. EIC5F00 1 DD ♦) 

.11H1 , 1 ,G,0,Q,J) 

2H01) 

2H02) 

:2H05) 

’42H AIRCRAFT CCM3AT SURVIVABILITY SCENARIO) 

7H0, 1 2 ,0 , , F7.2, 9H , 1 OOuCO. , , F7.4 , 1H/) 

10(?7. 1, U) ) 

2H04) 

2h03) 

3 nx,F7.C) ,KH 0.0, 360.0) 

19H0 , 1 , 1, 1 , 1 , 1, 0. C, 50.) 

7H1, 1 , 1. J) 

L 2 ROo ) 

3h1, },9(1X,F7.3) ) 

2H07) 

|49H VUINHPAaLE AREA TABLE VS TYPE 1 AND 2 WEAPONS) 
(8F8. 3) 

2h12) 






13H0,0,0,C, 1,1, 1) 

2CH0,2 , i , 1 ,1 ,1,0.0,50.3) 

20H0 , 3,4 ,4, 1 , 1, 0. 3, 50 .C 
2 OH 3,3,3,4,1,1,0.3,50.0) 

^OtiO, 5,3,^, 1,1,0.0,50.0) 

(2:i/*) 

'43H VULWE?.A3L£ AREA TA3L3 VS T7PE 3 VEAPOKS) 

U2H V0i;«ERA3LE AREA TABLE VS TYPE 5 wEAPUH) 

I 2fl//,2A4 ,bH 003 { ,I 4 1 H , , 14 . 2H) , , 1 H ' , 2 A4 , 1 H ,I4,2H?') 

I iSri//«.“.Ai:i 05G=‘:PGv:i l . ,ii, ihp) 

23H// EXEC PGH=3ICE, R£GIO!i=1 80K) 

44ri//STE?LI3 DD DS:< = 1£S. ?055 9.;iICE3A V, 0rS?=SH2 ) 

I 23H//FTC6?001 DD SYSCUT = A) 

15H//ETC5c001 DO «) 

2H01) 

53HAE 3251 »»* * S 0R7I V ABILIT Y SCEH AaiO«»»* S A.Y EaCOUHTEH) 

2H02) 

2H06) 

9X,1H0,ex,2H0.,5X,lH0,4X, 1H0,4X,1H0,3X,2H0. ,3X,2H0.) 

2H08) 

i7X,3d23. , 3X, 2H19 , 4X , 1H7, 4X, 1 HI) 

(8X,2H0. ,7X,3H10. ,7X,3H20. ,7X,3H33.,7x,3H40.,7X,3h50.,7x, 3H 
7X,3H70.,7X,JHe0. ,7 x,3H9C.,oX, 4H100. ,oX,4H110.,bX,4H120.,oX, 
,/,6X,4H140.,6X,4H150.,6X,3H160,bX,4Hl70.,oX,4Hia0.) 
(bX,4-d-90. ,oX ,4H- 60. , 6X,4H-30. , 8X, 2HO. , 7X,3H30. ,7X , 3HoO. , 7X 

' (7J10 .2 ,/, 7F1 C.2 ,/ ,5F1 0.2) 

(2H09) 

;7x,3H0.5,7x,3H0.1,7X,3H8.3,7X,3'd0.0,3X,2H0.,7x,3H30.,ex,2H 



2X,?8. 2,2F10.2) 

1 2H12) 

9X,1Hl,2X,l3,4X,lH1,4X,1a0,8X,2H0.,ax,2H0. , 3X,2H0. ) 
F7. 1 , 4F10. 1 , jF6. 1 ,4X, 2H0. ,4X , 2H0. ) 

2H20) 

2H/») 

(9X,1H1,4X,1H1,4X,1H4,4X,1!11,3X,2H10,4X,1H1,4X,1H0) 
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690 

700 

710 

720 

730 

740 



FOaSAT 

FCHMAT 

F03MAT 

FGHnAT 

FCBMAT 

FORMAT 

£ND 



(9X, 


1H2 


, 4 X , 


JH1 


,4 X , 


1H.4 , 


4X, 


1H1 , 


3X 


[9X, 


1 H3 


r4X , 


, IH 1 




I!i4, 


4X, 


1H1 , 


3X 


9X, 


1 H4 




,1 H 1 


,4X , 


1H4, 


4X, 


1H1 , 


3X 


(9X, 


1 H5 


/4< , 


JH 1 


,4X , 


ni4. 


4X, 


Iril , 


3X 


9X, 


1H6 


/4X < 


p 1H 1 


,4X , 


1H4, 




1H1 , 


lx 


9X, 


1H7 


.4X, 


,1H1 


,4X, 


1H4 , 


4X, 


1H1 , 


JX 



2H1 J, 4:c , 1 H 1 , 4X , 1H0) 
2H10,4X,1H1 ,-iX, 1H0) 
2cl1 J, 4X , 1 H 1 , 4X, 1H0 ) 

2H10, 4 X, 1H1, 4 X, lao) 

2H10,4X,191,4X,1Hl)) 
2H10,4X,1H1,4X, 1HJ) 
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3 LOCK DATA 









3L0CX DATA 

COSSC:! /LCC/ X 1 ,r 1, Z 1,'M , ITK , L1P.2 

coKzos /MN1/ aiN X ,aAxx, ai NT ,a axy,;ii.txi , aAxxi ,.n-ix2, ;uxx2 
coaaos /rn/ ieauc 

CORMOtJ /PAi?2/ XGUN (7 ) , YGU K (7) ,ZGUN(7 ) , XS AR , Y S AR, ZS A.R , G 2 (7 ) 

CCRRCM /P ASU/ AFPRAX,aTR i;:, iiZZAX, ?0? RI.N ,2A ALT, 2HRXL ,3p:'!Ay. . 3HERIN ,3 
IRBHAX, HTC ,ARTF 

CCRMON / AECV WX MO 0 D) , X Y ( 1 0 0 0) , '•< ^ ( 1 C 0 0) ,W U( 1000) , XV ( I 000) , JW ( 1000 



1) , «H (1 ooc) , w? ( 1C00) , wa ( 1 000) , xo ( loooi , i ( looo) . icr 
CCRROM / Aci2/ x:; zx , uZLa, XTS.'l? ,XCLD, Y NiW,D£^Y ,YTZ.1?, YOLO, Z sex, DSLZ, 
12TEMP, ZQLC 

CORROS /A2C3/ VELCS , VELOT ,7 E L CC , N , U S ES , OT E.'l? , 'JOL D , V S EX , VT ER P, VOLD, 
1WNEX, XrERE,-.CLC 
CORRON /AcDI/ AA1,A31,AC1 

COHQON /AED2/ VST ALL , 7R A X ,V R A X 1 , VRAX 2 , DELIEE , DELI V , D2LTAZ 
CCRHOM /ABD3/ P2ICCT ,THEDCT , PKIDOT 

CCRRON /AEDU/ PS I N EX ,THES E>i , ? KIR E X , P SIO LO , TR EOLD , PH lOLO 

CORRON /AES4/ IH Rrt X , ARR A X ,C LR AX ,0 EE , TO, 3HCS3 L, X L , COO , CDS , AaEA,D7CH 

CORRON /TAB/ :ARGX,iA&GY 

FLASH CaiTSH 

DATA IBAOC/V 

RAP XINCOX X COOaCIRATES 



DATA RIRX/100/ 
DATA RAXX/3700/ 



ALTIRETE5 XIRCuX X CCCHDI'-iATES 



DATA Ri;:X1/3725/ 
DATA RAXX1/3925/ 



ESCRPTISG XliiCOX X C003DIRA7ES 



DATA RINX2/3950/ 
DATA RAXX2/400C/ 



CORRON Y COOSCIRATE3 FOE THE THHEE XIRDCXS 



DATA RTRY/400/ 
DATA RAXY/2300/ 



PEEDETFfiRINEC WEArCR iRPLACERERT PA3ARSTE5S 



DATA X G'JN/14d 00. , 1o2CC. , 1 36 00 ., 13400 ., 1 13 00. , ISoOO ., 12300./ 
DATA TGUN/90 0 0.,d2CO.,72'JC. ,3000.,97 00.,10 900.,75 00./ 

DATA 2G0;i/4 0. ,40.,20.,2 0.,50.,9C.,20./ 



DATA XSAR/12OCC./,YSAR/faOu0./,Z3AR/5 0./ 

DATA (5 3/ 1000. , 10 CO. , 140 0. ,1 4 00., 2500 .,2500., 25 00. 



/ 



TAEGET COOHDISAXES 



DATA T ARGX/140C0./, lAHG Y/7220 ./ 



CCRVEfiSION FACTOaS: EADTARS TO DEGREES 

RETEES TO FEET 



DATA 3TD/57. 29573/ 
DATA A.RT E/3. 23084/ 



GBAVITATIONAL CONSTANT (R/S2) 



DATA GEE/9.307/ 



3IEDLATION PABARETESS 



CABDI^L COHPAS3 HEADINGS (RADIANS) 

DATA AA1/1.57C79o/,A21/3. 14 1 5 93/ , AC 1 /4 . 7 1 24/ 
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SAiiiaUa THSUST Of THE AIRC^AfT (Di:iZNSIO :1L£SS) 

CAIA THMA:£/0,a0/ 

MAXI.'IUM AI3C!^AFT GE£-L0A:I!JG (0 IME NSICML ZSS) 

DATA ANrtAX/6./ 

RHOSSL 15 THE DE'JSITY AT STAI.DAaD SEA-LEVEL CONDITIONS. IT HAS 
DiaENSICNS Of (N.S2/au) 

DATA RHOSSL/1 . 225/ 

STANCABD 3EA-LZVEI TEMPSEArDHS ( CEGPEES K) 

DATA TO/28S. 16/ 

TEKTEEATDRE LAPSE 5ATE EC3 THE T3C20SPH2HE (DEG K/H) 

DATA DTDK/-0. 5E-3/ 

HAXiaUa 5<ING LOADING (N*/.^2) 

DATA WL/4763./ 

SEEED E5AKE AEEA: CErINEC AS A PE2CENTAGE OF TOTAL WING AREA 

DATA AREA/. 35/ 

aAxiaua coefbiciznt lift 

DATA CLHAX/1./ 

CCEPFICIE'JT CF DRAG AT ZERO ANGLE CF ATTACK 
DATA CDC/.015/ 

PECFILE DRAG COEFEICIFN’T 
DATA CDK/0. 1/ 

aiNinua altitude ecr tfe ga^e (M) 

DATA HTaiN/6 3./ 

aAXiaOfl ALTITUDE APPHCACEING THE TARGET (H) 

DATA A?PaAX/457,/ 

aAXiMUa ALTITUDE AETEH HMTEHING POP-U? RANGE Of 6 Kd. («) 

DATA HTaAX/2050./ 

HAXiaua RANGE (HETFH3) A POP-UP HAY 3E COdHENCLD 
DATA PCPaiN/bOOO. / 

aihiaua allowable pcp-uf altitude (h) 

DATA BAALT/1000-/ 

BCHE RELEASE HAXIHUd ALTITUDE (H) 

DATA 3RHAX/200C./ 

BOaE RELEASE HINIdUrt ALTITUDE («) 

^ DATA BRHIN/100./ _ _ _ _ 

MAXiaua Boas release eange (a) 

DATA BRRHAX/I 000./ 
aiNiaua aoaB release range (a) 

DATA 3RRaiN/l0C./ 
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V2L0CITXHS crFOKH kllD AXTz? 30M3 (M/S) 



DATA VMAX 1/260./, VMAX2/3 10./ 



STALL VELOCITY (M/S) 



DATA 7S7ALL/90./ 



nJCSEMcNT OF VELOCITY CHANGE (5 KNOT INC CCNVERTLD TO M/S) 



DATA DELTV/3./ 



THE FOLLOWING ARE TEMrCRAFY PAEAMEIE3S FOR IliE INITIAL CONDITIONS G? 
THE AIRCRAFT. LA T H 5 THIS WILL 5E rNTERED INTER ACIIV CL Y . 



lETERS) 



DATA WX/C-/, W Y/bCCO. / /WZ/2D0. / .WO/TO 0 . / V/ J . / , W W/0 . , 
DATA WH/ 1.570d/,At/0./, WR/0./,«G/0. / ,1/0./ 

INCREMENT OF TIME CHANG E (SECONDS ) 

DATA DELIEE/1.00/ 

INCREMENT OF ALTITUDE CHANGE(50 FT INC CONVERTED TO 

DATA DELTA2/ 15 . 24/ 

TEMFOfiAfiY TRCGHAM INITIALIZ AT ION 

DATA XOL C/0. /, YOLC/b 300 . /, DO Ll/200./ 

DAIA OOLD/20 0. / , VCIO/0. / , hOLD/0. / 

DATA ?SICLD/0./,TtEOLD/J. /, ?HiCLD/0. / 

DATA 7ELCC/200./ 

END 
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APPENDIX H 



FLIGHTPATH GENERATOR WITHOUT THE GRAPHICS 












SU3H0UTINS 3IGCAL Ib.iAHaa 

Til IS S3T U? AS A T^OO 3LZ-SH00TI ilG CO N VS UI3IICE. 

11 IS TtS FLIGHTIATH GEN’EHATCa POLLED rH03 X3:-’PIP2- 
nhl)\ rA OSE, EACri SU350UTIME OAD A W HI T£- TO- F I LE 
SIAIEMENT IN IT rCS 03SHHVATION PORPOSES, 

CHANGES AND COaHENTS ARE CURRENT THROUGH ISHAHBiJ. 



— D-A-M, -- 

THIS SUSnOUTINE OrSPATES AT A LEVEL 3ELOV :iAIN 
PBOGRAa AND ACTS AS A DRIVER FOR THE SUBROUTINES 
LISTED NITHIN, 



10 



20 

C 



SUEBOUTINE 3IGCAL 

CO«HON /AEC1 / «X (1000) , W Y (1 000) , flZ f 1 000) , WU( 1000) , « V ( 1 000) , (1 GCO 

1) ( 1 00 0) , -iP ( 1C0 0) , NR ( 1000) , WG ( 1 000 ) , I ( 1 0 00 ) , ICT 

CO:iaON /ABC2/ XNEW, DELZ ,XTE:1? ,XOLD, Y NEW , D EL Y , YTEH P , Y OLD , 2 N EW ,DELZ, 
1 ZIEHP, 2CLL 

CON HON /AECJ/ VZLCN , VELOT ,VELCC, N,UN EW, UTEH? , BOLD , V NEW ,VT3H ?, VOLE, 
1 WNEW, WTEHF, WOLE 

CCHHON /AEC4/ AG 1 , AH 1 ,AI 1 ,A J 1 , AJ2 

COHHON /A5D2/ \SIALI //MA X -7 H A X 1 , 7HAX 2 , EELT EE, D ELT V , DELT2 
CCHHON /AEE5/ f W C ACC , AN , H CO NT 
N = 0 



ICT=2 
HCQNT^O 
CALL T HN FEH 
CALL NEWCLD 
CAL^ HVELCS 
CALL HVDCTS 
CALL DELVEC 
CALL raPFNT 
CALL T HP 7 EL 
CALL INRIRM 
CALL ANGLES 
CALL ROT?AT 
CALL ACTFHI 
CALL ACTRH2 



CALL ACTDHJ 
CALL ACRVEL 
CALL ACACC 
CALL ACLHTS 
CALL XCHNGE 
CALL WAYFNT 
CALL FILE 
ICT=ICH- 1 

IF (ASS (UTEHP) .GT.AES(VTEHP) , AND,DELX.E0.AG1) GO TO 20 
If (A3S ]VTEHP) .GI-ABS (UTEH?) . AND- DEL Y. £C. Aril ) GO TO 20 
GO TO 10 
CONTINUE 



BHIURN 

STOP 



END 
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C SOEHCUTINS THNFHa 

C IBANSPC&il TAKES TEE 5SAL 7ALDE VA3IA3LES SUPPLIED 

C £Y Tf£ GRAPHICS SUSaOUTINES AND LOADS THS;1 INTO 

C VADIA5LES SPECIFIC TO THIS AIHC2AFT THAJECTORY 

C GENESATING PACKAGE. 



C > 






SUE20UTINE THNEH-i 

co.^.:-:oN /Lcc/ n ’n, 21//1 , ith, itpi 

CCHrtON /AEC2/ XNEW, Dlil , XTS.'IP , XCLD,T NEW ,DELY , ITEM?, YOLO , I H £W , DELS , 
12TZHP, 20LD 

CC2K0M /ASCJ/ VHLCN , 7ELOT ,7SLCC, N,UN EW, UTE HP , UOLD , V N EW //T E P , VO LD , 
1 WNSW, WTEKP^WCID 
CCHHON /AEZ5/ £ W C ACC , AN , HCO NT 
XNErt=X1 
YNEW-Y 1 
2NEW=Z1 
VELON= VI 
HETU2N 
END 






( 4c « 4 



C SUEROUTINE NEWOLD 

C NEWCID GENEHATZS LENGTH VECTOR COMPONENTS 5ETNEEN 

C TEE CURRENT WAYPCINT (OLD) AND THE DESIRED WAYPOINT 

C CSE3 HAS JUST ENTERED (NEW). 



SUBHCUTINE NZWCID 

COMMON / AEC2/ XN E W , C ELI , X TZ M P , XCLD, Y NZ/< ,DZLY , YT'SHP, YGLD ,2 NEW , DiLZ, 
12TEMP, SOLD 

CCNHCN /AEC4/ AG U A H 1 , a I 1 , A J 1 , AN 2 
COMMON /AEZ5/ F - D ACC ,.;N , MCO NT 
AG1 = XN£W-XOLD 
AH1=YNE’W- YOLD 
AI 1 = 2N iW -ZOL J 



AJ1 = SQ RT(AG1<'*2+AH1*-2>AI1»*2) 
AJ2 = SQRT (AG1 ♦♦2 + Afc1*’*2) 

3ET-URN 

END 
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SUcSCUTIilE .'IVELOS 

MVELCS (MAP VELOCITY COEPCNENTSi DETERMINES 1 
VELOCITY C0MP0NEMI5 SET’WEEN CURRENT WAYPOINT 
AND THE JUST ENTERED ^'AYFOIN: (NEW) . THE SUo.- 

CCMAIN5 A FLAG (N) TO AVOID RESETTING THE 7i 
CCMPCNENTS UNTIL EITHER A NEW WAYPOINT IS EEC 
OR AN AIRCRAFT LI.^ITATICN WHICH IS FATAL IS : 
IN :F.E SuSSEQUEN'I INTERATIVE EUjROUTINES. the 
COORDINATE SYSTEM IS TERMED M , I.E., Y ?0i: 

1 4;»44x-<t * **3s«t*»3X*»*« 






'HE 

(OLD) 

lOUTINE 

ILOCITY 

:EIV£D 

REACHED 

ITS NORTH 



SUBROUTINE MVELOS 

COMMON /A£C4/ AG1,AH1,AI1,AJ1,AJ2 

COMMON /AEC3/ 7ELCN , VELOT //ELCC, N , U N EW , UT EM? , UO L D , V N £W //T EM ? , 70 L D , 
1WNEN, WT^MP, WOLC 
COMMON /AEE5/ F W C ACC , AN , MCO NT 
M=N 

IF (N.GT.O) GC TC 10 
UNEW^V EL0N=^ ( AG 1/AJ1) 

VNE«=VELON* (AH 1/ADI) 
y N£W=V ELCN=«^ (A I VAGI ) 

CONTINUE 

N=1 

RETURN 

END 



SC3ROU1INE MVDOTS 

MVCOTS (MAP VELOCITY DOT COMPONENTS) COMPUTES THE 
LINEAR ACCELERATICN CCMPCNENT3 
IN HAP COORDINATES. (Y POINTS .^DRr.I) 

SUBROUTINE MVECTS 

COMMON /ADC2/ XNEW ,DELI , XTE M F , X CLD, Y NEW ,J ELY /Y T EM ?, Y OL D , Z N EH , C EL 2 , 
IZTEMP.EOLD 

COMMON /AEE3/ VELCN ,7E LOT , V £ LCC, N , U N E W , UT EM P , U OL D , / N EW , VT EM ? , 70 L D , 
1 VNHW, WTEMP, WOLD 

COMMON /AEC4/ AG V AH 1 . A1 1 .A J 1, AJ 2 
COMMON /AEE1/ U DOT , 7 DOT , W DO T 
COMMON /AEE5/ F i C ACC ,AN , MCO NT 
ACC= (V ELON^*2-VELCO»^2) / ( 2»AJ 1) 

UDOT=ACC* (AGI/Aol) 

VCCT=ACC* (AH1/AJ1) 

HDOT = ACC^ (AI 1/ AJ 1) 

RETURN 

END 
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SCBROUTINE DE1V2C 

CHLVEC (D2LTA VECTORS) 0TILI2ES STANDARD DYNAMIC 
£CUA^IC^S TO GENsFATE LINEAR raANSLATION INCHE«ENTS. 
IT fUSThER LOOKS TO SEE WHETHER THESE IliCRE.TENTS 
EXCEED THE DISTANCE LEFT TC GO TO THE WAYPOINT 

SCEHOaTINE DELVES 

CO.NHON /A£C2/ X>U'W,D£LX,jCTEH?,XCLD, Y NEW ,DELY , YTE.^.P , YOLD , I NE'W , DELZ, 
IZTEjlP, ZOLD 

CCJIKON /AEC3/ 7ZLCN, V2LOT //ELCC, N , DM EW , UTEZ? , HO LD , V N E W , VT £ H ? , VC LD , 
1 WNEW, WTSZP, WOLC 

COZZUN /AEC4/ AG 1 , AH 1,AI 1 rA J 1 ,AJ2 

COrtZQN /A3D2/ '\«SXALL //MA X ,V HA a 1 //MAX 2 , DELTES, DELi’V, DELTAS 

CCZZOW /AEE1/ UlCT, VCOT , WDOT 

COHlION /AEE5/ F W C ACC , AN' ZCO NT 

del:c=holi:*delt£e +.5«uDOT* deltee^^^z 

DELY=VOin<DELTEE^'*5* VDOT*DELTEr*«2 

DEI2=WCLD*DELTEE + .5* WDOT<'LELTEr^^2 



I? 


(ASS i 


(EELX) .GT. AdS (AG 1) ] 


1 DELX=AG1 


If 


ASSi 


DEL*/ .GT. ADS (AIi 1) ^ 


DSLY=AH1 


IF 


Aas 1 


CFLZ .GT. ABS (AH) 1 


i DEIZ=AI1 


RETl 


JRN 






END 












:*: ♦ ts 3jt * * »» 



SUEHO'JTINE THPPNT 



IZEPNT ITEHPCRASY fCINT) GENERATES A TEMPORARY 
PCSlTIOfi IN SPACE EASED HPGN THE DELTA VECTOaS 



SOEEOJTINE TZPPNT 

COJIZON /ACC2/ XNEi ,DELX , XTEZP ,XCLD, Y NEW , DELY , IT E.‘l P , Y GL D ^ - N ^ , CELZ, 
IZTE.iP, 20LE 

COHNON /ABC3/ VFLCN, VELOT ,7ELCC, N,HN EW , HIEZ?, HOLD, VN£W //TEZP , VOLD, 
IBNEW/WTEZt ,WCLC 

COZZON /AEC4/ AG1 ,AH1,AI1 ,AJ1,AJ2 

COMHON /AED2/ VST ALL //HA X ,7 HA X 1 , /HA X 2 , D EL IE E , D ELI V > DELTZ 

COMKON /AEE5/ F W D ACC , AN , ZCO NT 

XTEHP=XOLD+D£LX 

YTEHP= YOID+DELY 

2T£HP=ZOLC<-D£LZ 

IF (DELX.EQ. AG 1) ?TEHP=XNEW 

IF (DELY. EG, AH 1) YT£NP=YNEW 

IF (DELZ.EQ, AI 1) 2T£KP=ZN£'W 

RETURN 

END 
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C SOEBOOTIHE TMEVEL 

C TKFVEL (TEMPCRABY VELOCITY COMPONENTS) GENERATES 

C Th£ VEICCITY COMPONENTS ASSOCZATEJ «ITa x liE TEMPCRAHY 

C PCINT IN SPACE (MAP COO S Cl NAT £3 ) . 

SUEBOUIINz IMP 7 EL 

COMMON /AEC2/ jJNEN ,DELi , XTE MP , XCLD, Y NE'-^ , CELT, ITEM P, TOLO,ZN ZN , DELZ, 
1ZTEMP, ZOLL 

COMMON /ABC 3/ VELCN , VELOT ,7 EL CC, N, UN £ W , UTEM? , 0 OL 0 , 7 N EN , 7T EM F , 70 L D , 
1 y u c j >▼* c V c y n I r 

COMMON "/ABC4/ AG 1 . A H 1 , AI 1 , A J 1 , AJ2 

COMMON /A £02/ 73TALL ,7M AX , V M A X 1 , V MAX 2 , ELTEE , D EL T V , DELTAZ 
COMMON /AEEV UDCT , V COP , .t DOT 
COMMON / A£E5/ P^ PACO, AN, MCONT 
UTSMP=UOLD^ODOI»0£LTEE 
VteM?= 70LCtVC0T*C£LTEE 
»TEMP= -OLE^WDCT^'DELTEE 

If (ABS (OTEM?) .GT.A3S(UNEW) . A NC. MOON T . EQ . 

IF (A3S( VIEMP -GT.AaS (7NEN) .AND. MCONT. ET. 

If (ABSJWTEMF .GT.A5S (NNEN) . A N C. MOO N T . E D . 

IF (DELX. Eg. AG 1) UTEMP=yN£W 
If (DELY.Eg.AH1) VTErp=^7N£W 
If (DELZ. Zg. AI 1) *TEMP=^NEW 
IF jDELX.NS.O.) GO TO 10 
UCOT^O. 

GO TO 20 



= DELY) 



1 ) 

1 ) 

1) 



UTEMP=UNEW 

vte:i?=7new 

WT EMP = W N Z'm 



10 


CONTINUE 






IF (UTEMP.EQ. UNEW) 


UCOT = 


20 


CONTINUE 






IF (DELY.NE.J.) GC 
7C0T=0 . 

GO TO 40 


TC 30 


30 


CONTINUE 






If (VTEMP.Eg. 7NEW) 


Vuor- 


40 


CONTINUE 






IF (DELZ-NE.D.) GC 
WCOT=0. 

GO TO 60 


TC 50 


50 


CONTINUE 






IF (WTEMP.EQ. WNEW) 


W EOT = 


60 


CONTINUE 





VELOT=sgPT (GT£MP=‘=>2<' VTEMP=»‘*2>'^TE:ir^=» 2) 

afTURN 

END 



C ♦ 

C 5D3S0UTINE 
C 

c 

c 



^ ^ m m ************ ^ * ** 

INRT3M 

INRTSM (n:iTIAL SCTATIONAL T3ANSF0RMATI0:n TRANSFORMS 
MAP CCG[?.DINArE COMPONENTS TO A SYSTEM USED BY FLIGHT 
CYNAMICISTS (Y POINTS SOUTH AND Z POINTS DOWN) 

**************** 4 ^***** ********************* 

SUBROUTINE INRTRM 

COMMON /ABCS/ 7ELCN , VELOT ,7 E L CO , N /J N £W , UT EMP , UOLD , V N EW , 7T EM ? , VOLC, 
1 WNEW, WTEMP,WOLC 
COMMON /ABE1/ CDOT , 7 DOT , W DOT 

COMMON /ABES/ ‘‘ 

COMMON /ASF1/ 

CCMMOH /AEF2/ 

U1=UTEMP 
V1 = -VT BMP 
Wl=-iTSMP 
UC1=UD0T 
VD1=- VDOT 
WC1=-WD0T 
RETURN 
ENE 



fWLAdc, AN, MCONT 

01 , 71 , W1 , U2 ,72 . W2,U3, V 3, S3 

UC1,7D1,<^Dl,UD2,7t)2,WD2,UD3,7D3,WD3 
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C* 3 * i^t****^** m* * 

C SOEHOUTINE ANGLES 
C 
C 
C 

c 

c 

c 



ANGLES COMPUTES THE ANGLE CHANGE INCHEHENTS CAUSED 
BY MOVEMENT E05WAED TO THE TEMPOS ARY ?0 IN T. ? S IN EW 
IS THE hEADING CHANGE, REFERENCED TO THE X AXIS. 
THENE« IS THE PITCH CHANGE REFERENCED TO THE 
HCRI2CNTAL PLANE. PHINE'-J IS THE ROLL INCREMENT ABOUT 
THE X AXIS. 









SUBROUTINE ANGIES 

COMMON /A£C2/ XNEW, CELX , XTSMP ,XCLD, Y NE« ,DELY , YTEMP, YCLD, 2 NEW , TEL2 , 
1 Z T ® MP 20 L C 

coHhoi /AcC3/ velc;i , velot/zelcc, : i ,u:i e«, jIe;i?, jol:: , » :.'E« /.’te.'ib, vcle, 

1 (i N E W , m TEMP f « C L C 

CCMMON /AE^U/ A G 1 , A H 1 , A I 1 , A J 1 , A J2 
COMMON /AID1/ AA1,AB1,AC1 

COMMON / AID2/ VSIALL //M A X //MAX 1 , VMAX 2, DELTEE , DELT7 , DELTZ 

COMMON /ABD4/ PS IN H W ,THE N EW , P hINEW , PS IG ID , THEOLD, PH lOLD 

COMMON /AIS5/ B« C ACC , AN , M CO NT 

COMMON /AErU/ DS,DSP,DSPP 

DS = SQRT {LELX=i^^ 2 + JlLY*»2 + DEL2^^2) 

IF (DSLX.NE.O.) SC TC 10 

IF (DELX. £Q. 0. . AND. DELY. LT. 0 . ) ?SINSW=AA1 
IF (DSLX.EQ. 0. . AN L. DELY. GT. 0. ) PSINE W = -AA 1 
GO ro 20 
10 CONTINUE 

PSINEW=-A1AN (DEi'i/OE LX) 

If ( DE LX. GT. J. .AND. DELi. EC. J. ) ?5INEW=0. 

IF DELX.LT. 0. .AND. DELY. LT. 0 . ) FSINE N= A£1 +PS IN ZA 
IF DELE. LX. J. . AND. C ELY. EC. 0. ) PSINE W = A51 
IF {DELX .IT. 0 . .AND. DELY. G I. 0. ) PS IN E «= I SI N EW - A 31 
20 * CONTINUE 

THENEN=ASIN (DEIZ/CS) 

T5NRAr= (PSINE W-PSICLC) /DELT EE 

IF (PSXNEW.GI. :. ) SHINE < = AT \N (ABS fl R N R A I EL CT/9 , 7 C 5 8) ) 

I? (PS INEW. LT. 0 . ) RHINE/. =- AT AN (ASS ( T R N E AT * VE i. j T/9 . 7 953) ) 

IF (PSINEW.EO- PSICLE) PH I NEW = c HI OLD 

RETURN 

£NE 



C SOSEOUTINE 3CTHAT 

C aCTEAT (ROTATIONAL RATES) COMPUTES THE ANGLE DOT 

C CCMPCNENTS IN THE INERTIAL REFERENCE SYS. (THE ONE 

C /iITH Y POINTING SCUTH AND 2 DO/.N) . 

tj^:^^T0m*'***m**** ^ m ** ****** ^ 



SUBROUTINE ROTHAT 

COMMON /AEC2/ XNEW,DELX , X IE M? , XGLD /Y NEW ,DSLY , YTEM? , YOL D , Z N E W , DELZ, 
1 ZTEMP, ZOLD 

COMMON /AED2/ VST ALL //M A X // M A X 1 , YMAX 2 , DELTSS , D SLT V , DELT2 
COMMON /AED3/ PSICOT , THE DOT , PHIDOT 

COMMON / AED4/ PS I NEW ,THEN EW , ? HINEW , P SIO LD , III EOLD , PH lOLD 

COMMON /AcE5/ FWL ACC .AN . MCONT 

PSIDOT= (PSINEW-PSIOLD) /DELTEE 

THED0T=(1HENE W-THECLCj/D ELTES 

PHIDOT = (PHIN EW-P EIOLL) /D ELTEE 

RETURN 

END 
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C SDBHOUTINE ACTB:i1 
C 

c 
c 

= 



t 4 P ^ *4i* * >^m**** > 






ACTRM1 (rtlRCHAFT TRANS? CRM ATICU MATRIX »1) 2FFECTS 
RCTATICN OF AIRCRAFT ABOUT THB 21 AXIS (PCS Z 
PCIliIS OWN TC 2ABIH) . 

SOBROOTINE ACTRM1 

CCKMON /AED4/ rS INZW ,TH£N EW , P HINEW , ? SIO LD , TH BOLD , PH 10 LO 

COMMON /ABES/ F W I ACC ^ AN, MCO NT 

COMMON /AEFV U 1 , V 1 , .t 1 , 5 2 // 2 . W ^ , U 3, 7 3 , W 3 

COMMON /ABF2/ UC1 ,VD1,W01 /JD2 , V D2 , W D 2 , U £ 3 , 703 , W03 

ANG=PS IN F W 

U2=C0S (A NO) >>^U1 ^SIN (ANG) ^7 1 
7 2 = -3IN (ANG) UCCS (ANG) - 71 

W2=-1 

UC2=C0S (ANG) '*001 '►BIN lANG) *7 D 1 

VD2=-SIN (ANG) ♦TJD 1 ♦CCS (ANG) *VD 1 

WD2 = WD 1 

HETORN 

END 



C SUBROUTINE ACTRM2 
C 

c 



4 4 ■* ** * ^ * 74-^ tern J4 ^ ^ ^ ^ 3^^ 

ACTRM2 ROTATES TEE AIRCRAFT ABOUT THE Y2 (RIGHT -ING) 
AXIS. 






I ««4c 4U4 44i44t4itt4M44fiK44 ^ 






SUBROUTINH ACTRM2 

COMMON /AEE4/ PS I NEW /THENEW , PFINEW, P S 10 L 0 /TR EO LO , PH lOLD 

COMMON /AEE5/ f »i £ AC C , AN, hCO NT 

CCMMO N / A BF 1 / U 1 , V 1 , 1 , LJ 2 , 7 2 , 2 , U 3 , 7 3 , W 3 

COMMON /AI-F2/ UC 1 //O 1 , 2D 1 ,UD2 /i C2 , D 2 , U C 3 , V 03 , <iD3 

ANG=rHENF2 

U3=C0S (ANG) *U2-3IN (ANG) *W2 
73 = 72 

S3 = SIN (ANG) *02+CCS (ANG) *W2 
0£3=COS (ANG) *UL2-BiR (ANG) *WD2 
VD3=VD2 

WD3=SIN (ANG) =*UC2 + C0S (ANG) *WD2 

RETURN 

EN£ 



444443 

C SUEfiODTINE ACTRM3 

C RCTAIZ3 AIRCRAFT ABOUT THE X3 (NOSE) AXIS 

,4444 4444444444 4 444 44 4444444 4444444444444 

SUBROUTINE ACTHM3 

COMMON /AED4/ P S IN £ W ,THE N EW , P HI NEW , PS 10 LO , T HEOLD , PH lOLD 
COMMON /AEE5/ B - C ACC , AN , M CO NT 

COMMON /ABFV U 1 , 7 1 , 2 1 , J 2 , 7 2 . W 2 , U 3, 7 3 , W 3 

COMMON /AEF2/ U C 1 , 7 l 1 , 4 D 1 /J D 2 , V D 2 , i D 2 , 0 D 3 , V 03 , WD3 

COMxMON /ABF3/ CAC ,VAC/W AC ,0 001 AC , 7 DO I AC, W COT AC , ?, Q, H 

ANG=PHIN£W 
UAC=U3 

VAC=COS (ANG) *73 +5 IN (ANG) *W3 
SAC=-SIN (ANG) *73^CCS (ANG) *W3 
ODOTAC=UC3 

VDOTAC=CCS (ANG) *VD3+SIN (ANG) *WC3 
WDOTAC=-SIN (ANG) *VD3-t«C0o (ANG) ♦WD3 
RETURN 
END 



I 4 44444 44 



^4444444 
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C SUBHCUTI'JE ACHV: 

c 

c 

c 

c 

c 

:k 

SaEEOaTINE 









ACEVcL lAIECRAFT 5CTATICNAL VELOCIIIES) CC.'lPaiES THE 
SCTATIOJiAL VELOCITIES i:2POSED OH THE 
AIl^CRArl, IN THE ECTAZICNAL OT AIRCHArT COORDINATE 



SISIEi'l, (X ALONG THE NOSE, Y OUT 
Z OUT 2ti 30TT0:i CF THE AiHCEAFT. 

: 31 ^ * 3 ! 

ACEVEL 



) 



::n RIGHT -iING, 






CO.^MOM /AED3/ F SIICT ,TH EDCT , r HIDOT 

CCaaOM /AED4/ PS I NEW , THE NOW , ? HIN EW , P SIO LD , TH EO LD , PH 10 LD 
COaaON /AEE5/ ?WCSCC,AN,ECONT 

CCaaON /AEF3/ UAC,VAC,-< AC/JDOTAC,VDOIAC,WDOTAC,?,^,R 
ANG1 =THENErt 
ANG2=P HINE^ 

P = ?HIOOI-SIN (ANGI ) ♦tSTDOT 

C = COS ( ANG2) ^TEElCT+CCS (ANG1) ^SIN (ANG2) *?SIoOT 
H=-5IN (AxNG2) *XH£DCT+CuS ( A NG 1) *CGS (AN G2) ^P SI DOT 
RETUEN 
END 



C** ♦***30:'** * *** 4****tt ♦*** 3 

C SU2BOUTINE ACACC 



E :0***4**jgc***«(t 



c 

c 

c 

c 



(AI3CPAFT ACCELERATIONS ) PUTS TOGETHH?. THE LINEAR 
ACCEIE3 ATIONS RESULTING FRON rRANSL«riON IHEvGUGH 
SPACH AND THE ROTATIONAL ^CCEL ZE^ 0 ION S RESULTING 
SBCd CANUVEHING- .^HAI APPEARS 3ELJW IS THE LH3 
CF TEE CLASSIC EvCATIONS Cr HoTION EOR AM AIRCRAF: 



: *3»*3K*«****«* ««**«4t< 



^****************A** 4 * 3 >*«* 9 ** 

SD3ROUTINE ACACC 

CCHHON /AEC2/ XN cW , DELX , X TE H ? , iCOD , Y S E- ,DELi , YTONF, iGLO 
1 ZlZaP, ZOIC 

COddOM /AEE3/ AX,AY,AZ 
COddON /AEE5/ FWCACC .AN. dCOMT 

CCd dUN / A EF 3 / C A C , V A C , 4 AC , U DO I AC , 7DO I AC . W DC 0 AC , ? , Q r R 
AX-UDJTAC-VAC<'Ri*n ACi^C 
AY = VDOTAOUAC’‘R-iAC’*P 
AZ = /iDOTAC-UAC»Q+ VAC^F , 

A==-VAC*R 



**««*«***3»*:*3^39*4:«* 



:NEN ,rEi2, 



B=-AC-9 

C=UAC^R 

D=-WAC*? 

E=-UAC*g 

F==VAC*P 

RETURN 

END 



C SUBROOTINS ACLdTS 
C 
C 

c 

C 

c 
c 

C 

c 

C^ 



4*«4****************** 3 



c **** ******** 



ACLdTS (AIRCRAFT IIHITAIICNS) COdPARES THE 
ACCELERATIONS RESULTING FRCd A PROPOSED dOVE ALONG A 
FLIGtl-PATH TRAJECTORY TO THE PHYSICAL LIdITATICNS CF 
Ttc AIRCRAFT. THIS IS ESSENTIALLY THE RHS OF THE 
ECUATICNS of dOTICN, IF THE TRAJECIORY ACCEL ER ATION S 
ARE LARGER THAN ALLOWABLE IHEY ARE ADJUSTED DOWNWARD 
IN MAGNITUDE UNTIL THE SHS AND LHS OF THE EQUATIONS 
CF dCTICN ARE EQUATED. 

E **4 « ******* ****** ****** 3 



C 



SUBROUTINE ACLdTS 
COaaON /AEE3/ AX,AY,AZ 

CCddON /A £04/ THdAX , ANd AX , C L d AX , GEE , TO , HHOSS L , WL , CDO , C DK , AR E A , DT DH 
COMMON /AEE5/ F W C ACC , AN , SCO NT 
CALL IHBOST 

IF (AN.LT.ANaAX.AND.FWDACC-LT.IHdAX) CALL BOOSTS 

If ( AN. GT. ANd AX. OR .F-< DACC.GT. THdAX) CALL RED OCR 

RETURN 



END 
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C 3UBR0UIINE BCCSTR 

C BCCSTR i:iCaiASES THE LI HEAP ACCELEEATI ONS UNTIL 

SUBROUTINE 3C0SIH 

COMMON / AEC2/ XNEV», CELX , XTSMP ,XCLD, I N E W , J ELY , YTE M ? , Y OL D , Z N E'4 , ZEL2, 
1 Z ISM^ ZO LC 

COMMON / AEC'4/ AG 1 , A H % A I 1 ,A J i , A J 2 
COMMON /AHL1/ COG I , LOT , COT 
COMMON /AEZ3/ AX,AY,AZ 

COMMON /AEE4/ IHMAX-ANMAX ,C LM AX , G EE , TO , 3 BOSS L , NL,CDO,CCK, AREA,OTDH 
COMMON /A ££5/ F'W C ACC , AN , M CO NT 
MCONT= 1 

10 CONTINUE 



1 = 0 

IF (AG 1 . EQ, DELX. OB, AG1, EQ ,0. ) GO TO 20 

IF (ABS (AG1) . LT, AES (AHl ) • AND, AES (AG1 ) ,LT, AES (All ) ) 1=1 

IF (I, N5, 1) GO TO 20 
ODOT=1 ,02’^UDOT 
20 CONTINUE 

IF (AH 1, EC.DELY,3B.AK1, EQ,0, ) GO TO 30 

IF (ASS (AHI) , LI, AES {AG1 ) . AND, AES (AH1 ) ,LT. AdS (All) ) 1=2 

IF (I, NE.2) GO TO 30 
VDOT=1 ,0 2«VDOT 
30 CONTINUE 

IF (AI 1. EC.OEL2, JH. All, ZC .0.) GO TO 40 

IP (A3 S (All ) ,LT. AES (AG1 ), AND, AES (AH ) - LI, A £3 (AH1) ) 1=3 

IF (I, N£, 3) GO ro 40 
4DOT-\ ,02*VDOT 
40 CONTINUE 

IF (AG 1, £0. OELX, 33, AG1. ZQ .3 . ) GO TO 50 

IF (A3S (AG1) , Zg, AES ( AH ) . AND. AES (AG1 ) ,LT, AdS (AH1) ) I=u 
IF (I. Nc,4) GO TO 50 
UDOX=1 ,0 E^UDOT 



WC01=1 ,02^rtDJl 
50 CONTINUE 

IF (AH 1 ,EQ.DELY,OF,AH1, ZQ.J, ) GC TO 60 

IF (AdS { AG1) . EC. AE5 (..HI) , AN D, AES ( AG 1 ) , L I, A3S ^A1 1 ) ) 1 = 5 

IF JI. NE.5) GO 10 60 
ODOT=1 , 02*UDOT 
VDGT=1 ,02^VDOT 
60 CONTINUE 

IF (AH. £C.DELZ,OB,An.EQ-0,) GO TO 70 

IF (ASS (AH 1) , EC. AES ( All ) , AND. AES (AHI ) .LT, ASS (AG1) ) 1=0 

IF (I. 2i£,3) GO TO 70 
VDOT=1 ,02» VDOT 
SCOT=1 ,02*wDOT 
70 CCNTINUE 

CALL SMLCAL 
CALL TliROST 

IF rAN.GS.ANflAX.OB.F^JDACC.GE.THMAX) GC TO 30 
GC TO 10 
80 CONTINUE 

IF (AN.GT.ANM AX) AN=ANMAX 

IF F'W DACC.GT. THMAX) rWDACC = T tJAX 

HETliSN 

END 
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C SUEBCaTIN£ RHCUCR 

C HECUCH IS CALL FFC?^ ACLilTS AMC RECaCES THE ”N2W»» 

C VELOCITY AND aLXIHATELY POSITION TO ;£T LOADS 

C ON TEE AIRCRAFT 'WITHIN LIHITS. 



SCEROUTINE RECUCR 

CC^IHON /A £03/ V ELCN , VELOT ,VELCC, N,IJN EW , OTE.'l? , 'JOLD , 7 N EW //TE«P, VC 
1 WNEW, WTE«F, WOIC 

CCHaON /Aci-i/ AG 1 , AH 1,AI 1 ,A J 1 ,AJC 

COflHOH /AED2/ \SIALi , VHA X ,7 H A X 1 , 7 HAi 2 , L ELT DELTV, DELIL 

COHHON /AEE3/ AX,AY,A2 



:tr 



10 



COHMON /AEE4/ TH.': A X , AN*1 A X ,0 L.-* AX , GEE, TO, jHOSSL, L , CDO , CDK , AR E A , D T CH 

CCrtrfOM /A ££5/ £WCACC,AN,HCONT 

COMMON /LCC/ XI ,Y1,2 1,V1 , ITa,ITR2 

.'1CCNT= 1 

CONTINUE 

VELON= VELCN-DELIV 



A=VSTALLi'2.«DEITV 
If (VoLON. GE, A) GC TC 20 
ANG=ACOS (AG1/AC2) 

AJ2= 1. 1^ AJ2 
AG1=C0S (AliG) AC2 
AH1 = SIN (ANG) » AJ2 
VSLON= VI 
20 CCNTINUE 
N=0 



CALL :i7ELCS 
CALL 3VDCTS 
CALL S HLCAL 
CALL THRUST 

IF (AN.L£.»N:1 AX.ANC. EWDACC. LE.IHHAX) Go TO 30 
GO TO 10 
30 CONTINUE 
RETURN 
END 






t 4 4 * $ ****** 3 



! **4^m*** 4** ** 



C SCEROUTINE SHICAI 

C ('SMALL CALL) IS A SMALL ER VERSION OF. (BIG CALL) AND 

C USED IN THE ITERATIVE LCOPS OF (AIRCRAFT LiaiTATIOMS) 

4 ***** **************i4:te***4:***x*:»****4t^*********** 



SUBROUTINE SHLCAI 
CALL OfLVrC 
CALL TMPENT 
CALL TMPYEL 
CALL INRTIiM 
CALL ANGLES 
CALL ROTHAT 
CALL ACT5M1 
CALL ACTFM2 
CALL ACTRM3 
CALL ACRVEL 
CALL ACACC 
RETURN 
END 
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SDBB0UIXH2 THRUST 



TRECST IS USED 31 (AIECRATT Li:i ITATION S) TO CC.'-PUTE 
THE AVAILABLE rCSWARD ACCELERATION BASED UPON THRUST 
CRAG, G-LOADING, POSITION IN SPACE AND GRAVITY. 

I « ««« 4 : 414 c : 4 c 4 c 4 4 «« «« 4 ^ 4 # 4 c « 4 c « « « « 



SUBROUTINE THRUST 

COHHON /ASC2/ XN £S ,DELX , XT2 ?1P , XCLD, Y NE^ ,DELY , YTZHP, YOL D, I N EV , CELZ, 
1ZTEH?,ZOLC 

CO<3i^lON / AdCj / VELCN , VELOT , VE LC C , N , U N EW , JT EHP , U OL 3 , 7 U EX , VT E ^ P , /G L C , 
nNEW,XT£HF, WOLC 

COadON /AEDa/ r SINEW ,THEN EW , P HINEW , P SIC LD , THEOLD , PHIOL D 
CCdHON /AEHJ/ AX,AY,AZ 

COHHON /AEEU/ TH d A X , AN'd A X ,C LH AX ,G EE , TO, 3HQSSL, WL, CDO,CDK, AHEA,DTIH 

CCaHON /AEE5/ E W I ;iCC , AN , dCO NT 

ANG^THENEW 

TaBQO= AX/GEE 

AN^SORT ( A2>^*2) /GEE 

SIGHA^ (t f CTDH*2TEaP/TO) ^*4, 25 7 

HHOALT=aRCS5L*SIG«A 

CL=(2, *AN^WL) / (RHCALT-*7ELCT^^2) 

DSAG=AN* ( (CDO+CLK^CL««2) /CL) 

FWDACC^SIN (A.«G) +THRCODRAG 
BETURN 



END 



4 34 c4 « 4 c4c*4c« c 



( 4 : 4 ! 44 c 4 c 4 c 4 c 4 c 4 c it * i 



;-s:»4ts44t4t4c4c«4c4c4c4*i»4i4i4:(t 



SUBROUTINE XCHNGE 

ONCE TEE EQUATIONS 0? 'ICTICN ARE iAIISFIED AT THE 
PBCPCSHD LOCATION (TEE?) THE TEdP LOCATION oECOdES 
TBE CURRENT LOCATION (OLE). 

4 * 444-44¥4c*4c»4c»44c4c4c4t44V3;«:*Si4c4t* 4:^4t3c4C3t.4444:44c4t 4c-::4444c4C4i#4c4»4c4c4s4:4c««4t4c<c«'t5t4:?^Sc*3C 

SUBROUTINE XCENC-B 

COMHON /A3C2/ XN £ -» , D ELX , XTE H E ,XCLD, Y NEW , DELY , YT EHP, YCL C, Z N EW , EELZ, 
12TEHP, ZOLC 

COHMON /ABCS/ VELCN , VELOT ,7 ELCC , N ,UN EN , UTEX? , UOLD, V NEW , 7T SHP, 70 LC, 
lyNEW ,WT£aF,WOLI 

COaaON /AED4/ FSINEW ,TH E N EW , ? HI N £W , PS IC I D , TH EOL D , PHICLD 

CCMHON /AEL3/ A C 1 , A E U A F 1 , A r 2 

XOLD-XIEHP 

YCLi>YTEHF 

20LD=ZIEHF 

UOLD=UTEKP 

VOLD=VTEHF 

WCLC=WTEHF 

PSIOLD=?£INEW 

THEOLD=THENSW 

PHIGLD=?HINEW 

VELOO= VELCT 

REIUEN 

END 
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m ***** * * * **-*M * * * *****:** * * ** :tt * * *■* ***tT^ *** ****ine**i ***** tt** »** Vt A ******* 



SUBHOOIIHS W AY?N 



TEB EELZVAUT PARAMETERS 
ASSIGIiE C. 



***** ********** ****** ******* 



FOR THE CURRENT POINT ASH 



3CBROUTINE iJAYINT 

COMMON /AEC1/ WX ( 10 JC) , VY (1 OOG) , WZ ( 1 000) , WUMO 00) , WV { 1 000) , WW (1000 
1) , -H ( 1 OOG) , W? ( 1C0C) , -R( 1 000 ) , WG ( 1000 ) ,T (10 00) , ICT 

CCMMON /AEC2/ YNES^DELX , XTErlp ,XCLD, Y N EW , D ELY , YT EM ? , TOLD, E M EV , EEL Z, 
121^'*MP ZOLE 

COMHOn"/AEC3/ VELCN , VELOT ,V el CC, N,U new, UT EMP, U OLD, V new ,7TSMP, vold, 
1 W N E W , W T E M ? , W 0 L L 

COMMON /AED2/ ^STALL ,7MAX ^7MAX1,7MAX 2 ^ D ELT EE, D EL TV - DELTA2 
COMMON /A£D4/ ES I N E W , THE N £W , ? HIN E W , P SIO LD , TH io L J , PH lOLD 
COMMON /AEE5/ FWI ACC , AN , MCO NT 



WX (ICT) =XOLD 
WY (ICT) = YCLD 
WZ ilCT) =ZGLD 
WO (ICT) ^CCLD 
W7 (ICT) =VCLD 
WW (ICT) = WOLD 
WH (ICT) =-?SINcW 
WP (ICT) =THENEW 
WH (ICT) =-PHINEW 
WG (ICT) =AN 

T (ICT) =r (ICT- 1) ♦DELTEE 

RETURN 

END 



i******^ 4 ±**** ^ ** i 



I *** * i 



** ***** i 

SGEBCUTINE FILE 

THE CURRENT POINT IS IMMEDIATELY SAVED. 

SUBROUTINE FILE 

COMMON /A EC 1/ WX ( 10 0 0) , W Y { 1 0 0 C) , S' Z ( 1 C 00) , ^ u ( 1 0 00) , « V ( 1 000) , WW ( 1000 
1) , WH (1 OOG) , 'WP ( 100 0) , '-*R( 1 OgO) , WG ( 1000 ) , r (IOoj) , ICT 
COMMON /AEC2/ XNEW,DELX , XTE MP , XC LD , 7 NEW ,DSLY , YTEMP, Y OLD, 2 NSW , DSLZ, 
12TEMP, 20LE 

COMMON /LCC/ XI , Y1 , Z1 ,7 1 , IT B, LT52 

IF (XOLD. NE. XNEW. OR. YOLD. NS. YNEW.OH, SOLD. NE, 2NEW) GO TO 10 
WRITS (1 1 ,20) T (ICT) , WX (ICT) , ^Y (ICT) , WZ (ICT) , ^ U (ICT) , W7 (ICT) , WW (IC 
IT) ,WH(ICT) , W? (ICT) , WR (ICT), WG (IcDT) ,LTR 
RETURN 

10 CONTINUE 
LTR=0 

WRITE (1 1 ,20) T (ICT) ,WX (ICT) , WY (ICT) .W2 (ICT) ,WU (ICT) , 'W V ( ICT ) , W W ( IC 
IT) ,WH (ICT) , Wp (ICT) , WR (ICT) , -G (ICT) , LIE 
REIURN 

20 FORMAT ( 1 1 ( E 1 0 - 4 , IX) , 13) 

END 
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: S:vav4:44 



9- * * * ^ ^ * ■* 9 ^ 

uLCCK xiT 4^ 

♦ *<c CAUTION =»'* TaiS 3I0CK CATA IS AN ABBREVIATED 
V5PSICN. *- D.A*.'!* — 16«AS84 

BLOCK DATA 

COMMON /ICC/ XI . Y1 , 21 //1 , IT E, 1TH2 

COMMON /MN1/ ai:n<,MAXx, MxNY , MAXY^MIN XI ,MAXX1 , MINXC , MAXX2 
COMMON /MN/ lEAUD 

COMMON /PAR2/ XGUN (7) ,YGUN(7) ,2GUN(7) , XSA M , ISAM , ESA M , I 2 (7) 

COMMON /FAH4 / Af £ MAX ,STMI nT MAX^ ?0? MIN , BAa^T, JRMIN , B2MAX , BRPMIN ,B 
1 BBMAX, 2T L, AMTF 

COMMON /ABC1/ WX (1000) , WY (1 0 0 0 ) /a Z ( 1 0 00 ) , N U ( 10 00 ) , WV ( 1000) , WW ( lOGO 
1) /^a ( 1 OOG) , NP ( ICoC) , WR( 1 000) , NG] 1000 ) ,I ( 1 000) , ICT 

COMMON /AEC2/ X N E « , D ELa , X TE MP , XCLD, Y N EN , D ELY , Y TEMP , YOLD , 2 N E'W , D2 LC , 
12IEMP, ZOLD 

COMMON /AHC3/ VELCN , VELO T ,7 ELCC , N , UN Ek , UIEMP /JOLD , 7NEN ,7TEMP , VOID, 
liNEW.irEMF.WOlD 
COMMON /AEDI/ AAl,AB1,ACl 

COMMON /AED2/ liSTAL I , 7M A X ,V MA X 1 , 7MAX 2 , C ELT EE, D SIT V , DELTAZ 
COMMON / AECJ/ PS ICOT ,THED0T , PHI DOT 

COMMON /A3DU/ PSINEW .TH E N EW , ? RIN EN , ? S lOID , TH EOL D , PHIOLD 
COMMON /AED5/ ACT , A E 1 , A F 1 , Ar 2 

COMMON /AcE4/ IHMAX , ANMAX ,C L M A X ,GEE , TO , 5HC3S L, /iL, CDO ,CEK, AREA, DTEH 
COMMON /TAR/ TAHGX,fAHGY 



FLASH ERI7EH 



CATA IBAUE/1/ 



MAP WINDOW X COOSCINAIES 



DATA MINX/ 100/ 
DATA MAXX/370C/ 



ALTIMETSS WINEQW X CCC2CINATES 



DAIA MINX1/3725/ 
DATA MAXX 1/3925/ 



PBCMFTING WINCOW X COCREINATES 



DATA MINX2/395C/ 
DAIA MAXX2/40GG/ 



COMMON Y COORDINATES rOH THE TH3EE WINDOWS 



DATA MINY/400/ 
DATA MAXY/2300/ 



PSEDETEEMINEC WEAPON EMPLACEMENT PARAMETERS 



DATA XGUN/14800- , 16 2 CO, , 1 3o 00 , , 1 3400 , , 1 1 30C, , 1 5o CO, ,12300,/ 
DATA YGUN/9O0 0, ,32 C0,,72OC. .3 000. ,97 0 0, , 1090 0, ,75 00 ,/ 

DATA Z GUN/40, ,4C,,20,,20.,50,,9C,,20,/ 

DATA XSAM/12 00C,/ . YSAM/6 JOO. / . 2SAM/5 0./ 

DATA GB/1000, , 100(5,, 1400, , 14 CC, , 2500 , , 2500, , 25 00, / 

TAfiGET COORDINATES 



CATA T AHGX/14000,/,IAEG Y/7220 ,/ 



CCNVEESION FACTORS: RADIANS TO DEGREES 

METERS TO FEET 

DAIA 3TD/57, 29573/ 

DATA AMT F/3, 28084/ 



GfiAVITATIONAL CONSTANT ( M/S 2) 



DATA GEE/9, 307/ 



SIMULATION PABAMETEfiS 



CABDINAL COMPASS HEADINGS (RADIANS) 
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DATA AA1/1.57C7Sb/,Aai/J.14 159 3/,AC1/4.712'4/ 



EITCH SCDL AND YAW PAKAaETTHS 



DATA AD1/.523 6/, AE V.05 2U/, AP V-6503/, AF2/2. 09 44/ 



aAXiaoa raaosT op tee aipcsaft (DiasasioNiEss) 



DATA TOaAX/O. 40/ 



sAxiaaa aihcpaft gee-lcacimg (d laENsicaL ess) 



DATA AHMAX/6./ 



EHCSSl IS THE DSN’SITY AT STAaCAP.D SEA-LEVEL COWDITIOyS. IT HAS 
DIKEHSIONS OF (!I.S2/a4) 



DATA aaOSSL/1. 225/ 



3TANBABD S EA-LEVEL TEBPEEATUEE (DEGREES K) 



DATA TO/288. 16/ 



TEaPEEATURE LAPSE FATE rCR THE TRCPOSPHERE (DEG K/d) 



DATA DTDK/-0. 5E-3/ 



BAXIHUfl WING LOADING (N/B2) 



DATA .iL/4788./ 



SPEED EHAKE AREA; DEELMEC AS A PERCENTAGE OF TOTAL WING Aa-A 



DATA AREA/. 05/ 



aAziaoa coefficient of lift 



DATA CLBAX/I./ 



CCEFPICIENT CF DRAG AT ZERO ANGLE CF ATTACK 



DATA CDO/.015/ 



PECFILE DRAG COEFFICIENT 



DATA CDK/0. 1/ 



aiSIBOa ALTITUDE FCR lEE GABE (B) 



DATA HTaiN/60./ 



aAXiaUfi ALTITUDE APPECACEING THE TARGET (B) 



DATA APPBAX/457./ 



aAxiaua altitude after entering pcp-u? range of 6 kb. (b> 



DATA HiaAX/2050./ 



aAxiaua velocities before and after bobb release (b/s) 



DATA 7aAXl/260-/,VBAX2/3 10./ 



STALL VELOCITY (B/S) 



DATA 7STALL/90./ 



BAXiaUE RANGE (3ETEHS) A POP-UP BAY 3E COBBENCED 



DATA PCPBIN/6000 ./ 



THE FOLLOWING AEE TEBPCRARY PAHABETERS FOE THE INITIAL CONDITIONS OF 
THE AIRCRAFT. LATER THIS -ILL BE ENTERED INTERACTIVELY. 



DATA i X /O . /, - Y/ u C C 0 . / , N Z / 20 0 . / , WU/2 0 0 . / , W V/0 . / , W S/0 . / 
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DATA W H/1*5708/,^P/0*/, /«a/0,/,«G/0.//I/0./ 



UJCSEiUHNT OF VELOCITY CHAIiGE (5 KNCT INC CONVEHTED TO M/S) 



DATA DELTV/3./ 



INCHEaENT OF TIME C E ANG E (SECO MDS) 



DATA DELTEE/1.C0/ 



INC9Z3ENT OF ALTITUCE CHANGE (50 FI INC CONVERTED TO MEIEH3) 



DATA DELTA2/ 15.24/ 



TEaECBASY FRCG3AM IN III A LI3 AT ION 

last data lite siziulat^s laout frc::! tha grapaics Duffer through 
the ifaapip sutroutm^s xyut'and zv^t. 



DATA XOLC/0. /, YOLC/6COO. /,EOLC/2 00./ 

DATA OOLD/200./,VCLD/0./, ^’OLD/C./ 

DATA ?SICLD/0./,IfcEOLO/0./,?HICLD/0. / 

DATA VELCC/200./ 

DATA X 1/6 000. /, Y 1/BCCO. / ,Zl/3CC./,7 1 /2b0. / 
END 
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